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Hack this editorial 



It's that time again. Transactor is pleased to introduce a 
new assistant editor By the time you read this, the editori- 
al staff will include Paul Bosacki. Readers will probably 
recall that it was Paul who introduced us to the C256 in 
Volume 9, Issue 2 and showed us how to expand the 1764 
with RAM and an EPROM in Volume 9, Issue 5. In this 
issue, you'll find that The One Megabyte C64 has been 
added to Paul's list of credits. As you would imagine, the 
presence of a hardware hacker in the Transactor offices 
could make for some interesting developments in the mat- 
ter of 'pushing the limits' in the pages of Transactor. Stay 
tuned! There are more limits that need pushing.... 



* 



If you haven't sent in your Reader Survey yet, please do. 
They've just started coming in and have made for inter- 
esting reading. Although no space on the page was allot- 
ted for your name and address, feel free to include that 
information or your CompuServe PPN or Q-Link handle 
if you wish, I spend my on-line time on CompuServe 
(76703,4243) but Paul is on Q-Link (PaulB 109). 

You are encouraged not only to participate in the Reader 
Survey but also to write letters or to send electronic mail. 
We want to establish a dialogue. Now that there are few- 
er large companies supporting the 8-bit machines, it has 
become increasingly important that we support each oth- 
er. This can only come about when such a dialogue 
becomes established. The on-line networks are an excel- 
lent way to keep in touch. Another is our exchange sub- 
scriptions with user groups. I read all the user group 
newsletters that come into Transactor and that has been 



a very valuable indicator of what's happening in the 8-bit 
world. So don't hold back, tell us what's on your mind. 



* 



* 



We are distressed to find that the new edition of the 
Oxford dictionary gives the follow (informal) meaning 
to the term "hack": to gain unauthorized access to 
(computer files). This is somewhat puzzling consider- 
ing that they give the (informal) meaning of "hacking" 
as: using a computer for the satisfaction that it gives. 
Do they mean to suggest that there's no satisfaction in 
gaining authorized access to computer files? Does this 
make no sense at all, or is it me? 



* 



In addition to Paul's Mega64, this issue features: a pop- 
up utility by Peter Lottrup for the 64 (runs in 64K ma- 
chines!), some tips from Bill Brier on creating ML text 
display routines, a nifty (EEE-to-serial coversion project 
for the 4040, an encryption program from Jim Frost, a 
utility by Nick Vrtis that will combine geoWrite files 
(regardless of version). 

The prolific Jim Butterfield explains exactly why some 
colour combinations work and others don't. You'll save a 
lot of trial and error by using the chart that Jim has 
included with this article. Add to this the columns, bits, 
reviews and other articles and I'd say you're in for some 
interesting reading. 

Malcolm D. O'Brien 
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Tired of looking up CHR$() values in books? This Sidekick-style utility will make the table resident. A 
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This program will combine files made with any version of geoWrite, 
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Most ML programs require at least some text output. In this article, Bill shares with us some slick, 
quick routines for efficient text output. 
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by Michael Gilsdorf, Toledo, Ohio 

The venerable 4040 can be modified to plug into your C64/C128 directly. This will enable you to use 
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Colour Coordination 76 

by Jim Butterfield 

Jim explains the ins and outs of colour combinations. There's more to consider than which colours are 
complementary. The key is luminance. 
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About the cover: Whyaduck by Wayne Schmidt: 
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Quite a different source of inspiration this tinre aroutid. This issue's cover has an old 
comedy routine as its -'source* This colourful picture of a duck is a reference to a 
humourous routine by the Marx Brothers concerning a viadtiek This picture was 
with Artist 64, modified for the 1 35 1 |®0j^^ 
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Using "VERIFIZER" 



Transactor s foolproof program entry method 



VERIFIZER should be run before typing in any long program 
from the pages of Transactor, It will let you check your work 
line by line as you enter the program and catch frustrating typ- 
ing errors. The VERIFIZER concept works by displaying a two- 
letter code for each program line; you can then check this code 
against the corresponding one in the printed program listing. 

There are three versions of verifizer here: one each for the 
PET/CBM, VIC/C64, and CI 28 computers. Enter the applica- 
ble program and RUN it. If you get a data or checksum error, 
re-check the program and keep trying until all goes well. You 
should SAVE the program since you'll want to use it every 
time you enter a program from Transactor. Once you've RUN 
the loader, remember to enter NEW to purge BASIC text 
space. Then turn VERIFIZER on with: 

SYS 634 to enable the PET/CBM version (off: SYS 637) 
SYS 828 to enable the C64/VIC version (off: SYS 83 1 ) 
SYS 3072,1 to enable the C128 version (off: SYS 3072,0) 

Once VERIFIZER is on, every time you press RETURN on a 
program line a two-letter report code will appear on the top 
left of the screen in reverse field. Note that these letters are in 
uppercase and will appear as graphics characters unless you 
are in upper/lowercase mode (press shift/Commodore on 
C64/VIC). 

Note: If a report code is missing (or "— ") it means we've 
edited that line at the last minute, changing the report code. 
However, this will only happen occasionally and usually only 
on REM statements. 

With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you press RETURN 
on a line. If the code doesn't match up with the letters printed 
in the box beside the listing, you can re-check and correct the 
line, then try again. If you wish, you can LIST a range of lines, 
then type RETURN over each in succession while checking 
the report codes as they appear. Once the program has been 
properly entered, be sure to turn verifizer off with the SYS 
indicated above before you do anything else. 

VERIFIZER will catch transposition errors like POKE 52381,0 
instead of POKE 53281,0. However, verifizer uses a 



"weighted checksum technique" that can be fooled if you try 
hard enough: transposing two sets of four characters will pro- 
duce the same report code, but this will rarely happen, (veri- 
fizer could have been designed to be more complex, but the 
report codes would need to be longer, and using it would be 
more trouble than checking the program manually), verifizer 
ignores spaces so you may add or omit spaces from the listed 
program at will (providing you don't split up keywords!) Stan- 
dard keyword abbreviations (like nE instead of next) will not 
affect the verifizer report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette 
buffer, so if you're using a datasette be aware that tape opera- 
tions can be dangerous to its health. As far as compatibility 
with other utilities goes, verifizer shouldn't cause any prob- 
lems since it works through the BASIC warm-start link and 
jumps to the original destination of the link after it's finished. 
When disabled, it restores the link to its original contents. 

PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 

CI 1 rem* data loader for "verifizer 4.0" * 

LI 20 cs=0 

HC 30 for i=634 to 754: read a: poke i,a 

DH 40 cs=cs+a: next i 

GK 50: 

OG 60 if cs<> 15580 then print"***** data error *****"; end 

JO 70remsys634 

AF 80 end 

IN 100: 

ON 1000 data 76,138, 2,120,173,163, 2,133,144 

IB 1010 data 173, 164, 2,133,145, 88, 96,120,165 

CK 1020 data 145, 201, 2, 240, 16, 141, 164, 2, 165 

EB 1030 data 144, 141, 163, 2, 169, 165, 133, 144, 169 

HE 1040 data 2,133,145, 88, 96, 85,228,165,217 

OI 1050 data 201, 13,208, 62,165,167,208, 58,173 

JB 1060 data 254, 1, 133,251, 162, 0, 134,253, 189 

PA 1070 data 0, 2,168,201, 32,240, 15,230,253 

HE 1080 data 165,253, 41, 3,133,254, 32,236, 2 

EL 1090 data 198, 254, 16, 249, 232, 152, 208, 229, 165 

LA 1100 data 251, 41, 15, 24,105,193,141, 0,128 

KI 11 10 data 165,251, 74, 74, 74, 74, 24,105,193 

EB 1120 data 141, 1,128,108,163, 2,152, 24,101 

DM 1130 data 251, 133,251, 96 



Transactor 



VIC/C64 VERIFIZER 

K.E 10 rem* data loader for "verifizer" * 

JF 15 rem vic/64 version 

LI 20 cs=0 

BE 30 for i=828 to 958:read a:poke i,a 

DH 40 cs=cs+a:next i 

GK 50 : 

FH 60 if csol4755 then print"***** data error *****": end 

KP 70remsys828 

AF 80 end 

IN 100: 

EC 1000 data 76, 74, 

EP 1010 data 252, 141. 

OC 1020 data 3,240, 

MN 1030 data 25 1,169, 

MG 1040 data 3, 3, 

DM 1050 data 0, 160, 

CA 1060 data 32,240, 

NG 1070 data 133, 90, 

OK 1080 data 232, 208, 229, 56, 

AN 1090 data 32,210,255,169, 

GH 1100 data 89, 41, 15, 24,105, 

JC 11 10 data 165, 89, 74, 74, 74, 

EP 1 120 data 32, 210, 255, 169, 146, 

MH 1 1 30 data 32, 240, 255, 1 08, 25 1 , 

BH 1140 data 101, 89,133, 89, 96 



3,165,251,141, 2, 3,165 

3, 3, 96, 173, 3, 3, 201 

17,133,252,173, 2, 3,133 

99, 141, 2, 3, 169, 3, 141 

96,173,254, 1, 133, 89,162 

0, 189, 0, 2,240, 22,201 

91,200, 152, 41, 3 

3, 198, 90, 16,249 

32,240,255,169, 19 

18, 32,210,255, 165 

97, 32,210,255 

74, 24, 105, 97 

32,210,255, 24 

0. 165, 91, 24 



15, 133, 
32, 183, 



♦NEW* C128 VERIFIZER (40 or 80 column mode) 



rem save"0:cl28 vfz.ldr",8 

rem c- 1 28 verifizer 

rem bugs fixed: 1) works in 80 column mode. 

rem 2) sys 3072,0 now works. 

rem 

rem by joel m. rubin 

rem * data loader for "verifizer c 128" 

rem * commodore cl28 version 

rem * works in 40 or 80 column mode!!! 

ch=0 

for j=3072 to 3220: read x: poke j,x: ch=ch+x: next 

if cho 18602 then print "checksum error": stop 

print "sys 3072, 1 to enable 

print "sys 3072,0 to disable 

end 

data 170, 208, 11,165,253,141, 2, 3 

data 165,254, 141, 3, 3, 96,173, 3 

data 3,201, 12,240, 17,133,254,173 

data 2, 3,133,253,169, 39, 141, 2 

data 3, 169, 12, 141, 3, 3, 96, 169 

data 0.141, 0,255,165, 22,133,250 

data 162, 0,160, 0,189, 0, 2,201 

data 48,144, 7,201, 58,176, 3,232 

data 208. 242, 189, 0, 2, 240, 22, 201 

data 32,240, 15,133,252,200,152, 41 

data 3,133,251, 32,141, 12,198,251 

data 16,249,232,208,229. 56, 32,240 
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FA 
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LC 


310 


AJ 


320 
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330 


PI 


340 


FF 


350 


DE 


360 



CB 370 data 255, 169, 19, 32,210,255,169, 18 

OK 380 data 32,210,255,165,250, 41, 15, 24 

ON 390 data 105, 193, 32, 210, 255, 165, 250, 74 
OI 400 data 74, 74, 74, 24,105,193, 32,210 

OD 410 data 255, 169, 146, 32,210,255, 24, 32 

PA 420 data 240, 255, 108, 253, 0, 165, 252, 24 
BO 430 data 101, 250, 133, 250, 96 



The Standard Transactor 
Program Generator 

If you type in programs from the magazine, you might be able 
to save yourself some work with the program listed on this 
page. Since many programs are printed in the form of a BA- 
SIC "program generator" which creates a machine language 
(or BASIC) program on disk, we have created a "standard 
generator ' ' program that contains code common to all program 
generators- Just type this in once, and save all that typing for 
every other program generator you enter! 

Once the program is typed in (check the Verifizer codes as 
usual when entering it), save it on a disk for future use. When- 
ever you type in a program generator, the listing will refer to 
the standard generator. Load the standard generator first, then 
type the lines from the listing as shown. The resulting program 
will include the generator code and be ready to run. 

When you run the new generator, it will create a program on 
disk (the one described in the related article). The generator 
program is just an easy way for you to put a machine language 
program on disk, using the standard BASIC editor at your dis- 
posal. After the file has been created, the generator is no 
longer needed. The standard generator, however, should be 
kept handy for future program generators. 

The standard generator listed here will appear in every issue 
from now on (when necessary) as a standard Transactor utility 
like Verifizer. 



rem transactor standard program generator 

n$="filename": rem name of program 

nd=QQ0: sa=00000: ch=00000 

for i=l tond: read x 

ch=ch-x: next 

if ch then print "data error": stop 

print "data ok, now creating file." 

restore 

open I,8,l,"0:"+n$ 

hi=int(sa/256): lo=sa-256*hi 

print* 1 ,chr$(lo)chr$(hi); 

for i=l to nd: read x 

print#lxhr$(x);: next 

close 1 

print"prg file T ";n$; ,,, created... 11 

print rT this generator no longer needed." 
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Another view of DevPak: This letter is a comment concern- 
ing Joel Rubin's remarks in Volume 9, Issue 3 about the 
DevPak 128 package from Commodore. 

I have made extensive use of this package in the development 
of a multi-user, online truck leasing and billing system. The 
total amount of code written for this system (it is 100 percent 
machine language) is about 100,000 lines. The software runs 
on a group of C128D computers multiplexed to an 80mb Xetec 
Lt. Kernal hard disk subsystem. I used a separate C128D and 
40MB Lt. Kernal as the development system, using a home- 
brew text editor to write the source code and the DevPak 
assembler and loader to create executable object code. 

It is true that the DevPak assembler is disk-intensive. So is 
just about any assembler that must make two passes through 
ten files totalling nearly 400 kilobytes of source code. As for 
the procedure of having to use the hex file loader to actually 
place your program into RAM, that procedure has existed with 
all assembler packages that have been marketed by Com- 
modore (the C64 Macro Assembler Development System or 
MADS uses the identical procedure). 

The limitations on open files and speed on a 1541 or 1571 
drive are limitations that any assembler must contend with. 
As Mr. Rubin mentioned, these limitations are clearly 
explained in the DevPak documentation and can be alleviated 
by using multiple drives, as the assembler can read source 
code from one unit and write object code to another. Addi- 
tional gains in speed can be achieved by utilizing the 
sfd-1001 drive and a Skyles Quicksilver IEEE interface or if 
the user is intent on doing some heavy-duty programming, 
the Lt. Kernal system (the Lt. Kernal DOS allows up to seven 
files to be opened at the same time). 



Because I do my development on a Lt. Kernal-based system, 
I do not experience the problems Mr. Rubin mentions about 
speed and open files. Even my largest program assembles at a 
rapid rate. Smaller programs (those with less than 50K of 
source code) assemble in under three minutes if no listing 
output is required. So, while the disk-intensive nature of 
DevPak might be a problem on a 1541 or 1571 system, it 
probably would not be a problem on a system with greater 
disk capacity (for example, the sfd-1001 allows a larger 
number of files to be simultaneously opened because of more 
available drive ram). 

The advantages of the DevPak assembler, in my opinion, out- 
weigh the disadvantages. For one thing, the assembler's pars- 
ing routine is not case-sensitive for non-quoted strings. Quot- 
ed strings may include shifted or PET graphics characters 
(something which is not allowed by many assemblers). 
Another point to consider is that DevPak supports local labels 
(real handy for patching existing programs). The macro facil- 
ity works flawlessly and allows nesting of macros (macros 
can call other macros). The printed output listing is more 
informative than that of most other assemblers. The symbol 
table is structured in ram 1 and has over 60 kilobytes 
available in which to deposit data. 

The need to use the loader to place the hex image file into 
RAM is a minor nuisance in some cases. However, the use of 
the hex loader allows me to assemble for an area which can't 
be conveniently used as a location from which to execute a 
binary save (such as the hardware stack) and load the pro- 
gram into a free area of RAM from which it may be saved. 
This feature is complemented by the ability of the Lt. Kernal 
DOS to change the load address of a binary file after it has 
been stored on the drive. 
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I cannot recommend the EDT text editor that is supplied with 
DevPak, both for the reasons mentioned by Mr. Rubin (the use 
of the numeric keypad to issue commands to the editor) and 
because the editor is actually quite unfriendly and cumber- 
some. However, as he mentions, almost any editor can be used 
in its place. 

In summary, the DevPak assembler is gross overkill for the 
casual programmer that is interested in writing only a few 
lines of code. I can't recommend it for the user that has only a 
1541 or 1571 on his system. This assembler is really meant for 
a serious machine language programmer who has the proper 
hardware to go with it. 

Bill Brier, Bensenville, IL 

A letter to Francis Kostella: I am writing you in a somewhat 
desperate attempt to get some reliable information on how to 
obtain a copy of Alexander Boyce's GEOS manual. I realize it's 
not your job to answer questions like this (sorry) but I couldn't 
think of anyone else to ask. I'm a bit at my wits' end. 

I have been trying to obtain a copy of the manual for several 
months. Through what seemed a stroke of good fortune, 
Nicholas Vrtis published Alexander Boyce's address in Trans- 
actor, Volume 9, Issue 4. However, a letter to that address was 
returned to me only yesterday, unopened - that address does 
not seem to exist. My final plan of attack is to get in touch 
with people who have the manual already, to see if they can 
give me a lead on how to get a copy. Hence my letter to you. 

Can you please send me any hints or suggestions you might 
have on how to get a copy of Boyce's book? Even a photo- 
copy, I don't care. I really do want this manual. Thanks very 
much for your trouble. 

David Kotchan, Toronto, Ontario 

We managed to contact Alex. Here's his new address: 

Alexander Boyce 
63 Chamberlain Ave. 
Elmwood Park, NJ 07407 

Incompatible 1541 C?: 1 am writing to you in hopes that you 
may help me with a problem which has plagued the techni- 
cians here in Ottawa and at Commodore in Toronto for some 
time. 

The problem began when I bought a second disk drive model 
1541 and added it to my collection of 1541s... This is my set- 
up: 64, 1701, three 1541s, Epyx Fastload cartridge, Aprotek 
RS-232 interface. Star nx-kkm) and a Datagram modem. 

After many years of being interested in Commodore equip- 
ment, 1 have never heard of this problem. When I connect my 
recently purchased 1541 as device 8, it locks up the 64. I 
have made many trips to my local service depot and spent 



many hours in frustration, so I decided to troubleshoot this 
problem myself. 

In the beginning, I had everything connected to a power bar so 
all 1 had to do was hit the switch and go... (not by the book, 
but has been effective in the past). 

To make a long story short, after I put my new drive on as 
device 8, it locks up the 64. The screen will say, for example, 
"searching for $" and that's it. The read LED never lights and 
my keyboard is now frozen. The only way to access it, is by 
resetting the drive and then it will work, but this only happens 
on the very first time, then it's somewhat OK for the rest of the 
evening. 

Now it gets even more interesting. If I only leave device 8 on 
and turn on the power bar everything is fine, but as soon as I 
turn on device 9, that's it! - the keyboard is frozen. The only 
way to get back to normal is to reset all drives. Now this may 
not be a bad solution; however, as my system has grown I have 
gotten squeezed out of my office and forced to build a custom 
computer hutch that contains all my equipment. The hutch is 
virtually useless to me now, because every time 1 go to use it I 
have to consistently start pulling equipment out of it to reset it. 
This is not very practical and so I have abandoned this drive. 

So you say, how can we help? Well, I'm going to tell you. 
After some research I believe that it has something to do with 
the priority of how the 64 recognizes the 154 1C. 

After closer inspection of the situation, I have concluded that 
the logic PCB in this new drive is not compatible with the oth- 
ers. As I had previously stated, everything was in perfect 
working order until I installed this new drive. 

What I have done is taken the version number from each drive, 
hoping that you will be able to help me... 

My question is; Can I make them compatible with the same 
type of software? 

My new 1541 is a PCB #251830 Rev. A. My old 1541 is a PCB 
#1540050 Rev. C. The service people have been co-operative 
and have said that if it is possible to make them compatible, 
then they would do so. I hope that the solution is a simple soft- 
ware upgrade or downgrade, whichever makes it work! 

Terry Golding, address unknown 

First of all, troubleshooting by mail rarely works,.. However, it 
sounds like a * serial bus loading problem'. These tend to be 
more common as devices are added to the bus and some de- 
vices are more likely than others to cause such problems. For 
example, one revision of the 1526 is notorious in this regard. 
Of course, you may be right about the 1541C. This is one 
piece of equipment with which Transactor has no experience. 
(We don't have any 1541 -lis either/) If anyone can supply more 
information on this subject, please send it in. 
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Transblooperz in Programming GEOS Icons: First, let me 
say that this is the first letter to an editor that I have ever 
written. I have been reading Transactor for several years 
and I believe it is the finest Commodore-specific magazine 
existing. 

I am writing regarding the article Programming GEOS Icons on 
page 56 of Volume 9, Issue 5. I am a GEOS enthusiast and 
enjoyed the article very much. The program works well, but 
there are a couple of errors; one in the article and one in the 
program. Also, the program (geoKeyhoard) can be shortened 
considerably, as I will show. 

Firstly, in the fifth paragraph at the top of the right-hand 
column on page 56, it is stated: 'When Dolcons is called, 
the GEOS Kernal expects the two-byte .word following the 
jsr in memory to contain the pointer to the icon table.* 
This is not correct. The pointer to the icon table must be 
loaded into rOL/rOH (using the macro, LoadW 
rOJconTable) before the JSR to Dolcons, as is done in the 
program on page 59. There is no in-line form of the 
Dolcons routine. 

Secondly, in the geoKeyhoard program (page 59, left hand col- 
umn), the following sequence is printed: 

Ida #0 ;Put mouse on geos menu item 

LoadW rO,GeosMenu ;Put address of menu table in rO 
jsr DoMenu 



jsr InitForlO 

Ida #$40 

sta vicntrl 

ldx rOL ;put icon number into index register 

Ida lofreq,x ;get low frequency value from table 

sta vlfreqlo ;put it in the sid register 

Ida hif req, x ; get high frequency value from table 

sta vlfreqhi ;put it in the sid register 

Ida #$41 

sta vicntrl 

<rest same> 

4) Add the following data table to the program at the end (after 
jmp EnterDeskTop) 

lofreq: 

.byte 195, 195, 209, 239, 31, 96, 181, 30 
.byte 156, 49, 223, 165, 135, 134, 162, 223 
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,byte 


62, 


193, 


107, 


60, 


57, 


99, 


190, 


75, 


hif req: 


















.byte 


16, 


17, 


18, 


19, 


21, 


22, 


23, 


25 


.byte 


26, 


28, 


29, 


31, 


33, 


35, 


37, 


39 


.byte 


42, 


44, 


47, 


50, 


53, 


56, 


59, 


63, 



67 



There is just one more thing. If the Ida #$01/sta vlsusrel in 
the LoadsiDRegisters routine is changed to Ida #$0c/sta vlsus- 
rel, the note lasts longer and seems to sound better. 

Roy Longworth, Trenton, ON 



I must point out that if this routine is coded as above, the 
LoadW macro will change the value of the A register, and the 
mouse will not be put in the right place. The LoadW macro 
and the Ida should change places, as follows: 



Right on all fronts, Roy. Thanks for pointing out the errors in 
the text and code. And thanks for the tip on shortening the 
code. Keep on writing letters to editors. We do appreciate it 
when readers find (and correct) our mistakes. 



LoadW 


rO , GeosMenu 


Ida 


#0 


jsr 


DoMenu 


rts 





Now the A register will contain on entry to the DoMenu rou- 
tine, and the mouse will be placed on the first menu item. 

Now for the change to make the program shorter. The follow- 
ing is based upon the fact that, after an icon is clicked, its 
number (based on its position in the icon table, starting with 0) 
is returned in rOL. It is simple then to use this value to index 
into a table of frequency values, instead of having a separate 
action routine for each note. 

1) In the Keyboard icon table (page 59), change all the action 
routine pointers (such as .word I)ocn4, DoCS4 etc.) to .word 
Play 

2) Eliminate all the routines on page 60/61 for loading the fre- 
quency values into aOL/aOH (DoCn4 to Docn6) 

3) Change the routine Play on page 61 (left hand column) to: 



Back to Forth: Friends, I am looking for documentation for 
Scott Ballantyne's Blazin' Forth implementation of the Forth 
language. He wrote an article in Transactor, Vol. 7, Iss. 5 and 
it was on your disk. It seems to assume we all know the pro- 
gram well! I'm trying to learn Forth. 

I would also like disk I/O routines for HESForth cartridges. C64 
and vic-20 disk operations crash on mine. Thanks, 

Premena 
P.O. Box 1038 
Boulder, CO 80306-1038 

Your best bet for 8-bit Forth support is CompuServe. Lib 5 of 
our Commodore Programming Forum (GO CBMPRG) is devoted 
to the Forth language. In addition to the complete source code 
for Blazin* Forth, LIB 5 contains a number of helpful text files : 
What follows is a list of the files in the Forth library: 

Filename legend: 



= ASCII text file 
/B = Xmodem upload 
/I = B-protocol (Vidtex) upload 
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/R = RLE graphic file 
NOTE: Size is rounded to the nearest full K (IK - 1024 bytes) 



System Upload 

Filename Size date 

IMTR0.4TH/A 19K 12-Oct-88 

LXB5.DIR/A 5K 17-Jul-88 

BVT100 JIN/B 28K 27-Sep-87 

FORTH. TXT/A 4K 15-Apr-87 

SIDEXP.IMG/I 38K 06-Feb-B7 

PRTFIL.BIN/B 2K ll-Dec-86 

BFCDEM.IMG/B 18K 12-Nov-86 

FSP.BFT/A 4K 12-Hov-86 

FSP. TXT/A 80K 12-Hov-86 

BFCSRC, TUT/A 36K 22-Sep-86 

BFCL ASM/A 19K 18-Sep-86 

BFC10. ASM/A IK 18-Sep-86 

BFC11, ASM/A 10K 18-Sep-86 

BFC12, ASM/A 2K 18 -Sep- B 6 

BFC2. ASM/A 26K 1B-Sep~86 

BFC3. ASM/A 22K lS-Sep-86 

BFC4. ASM/A 24K 18-Sep-86 

BFC5. ASM/A 28K 18-Sep-86 

BFC6. ASM/A 13K 18-Sep-86 

BFC7. ASM/A 17K 18-Sep-86 

BFC8. ASM/A 17K 18-Sep-86 

BFC9. ASM/A 12K 18-Sep-86 

DYNAR.FTH/A 5K Q9-Sep-86 

ESTAC2. DOC/A 5K 31-Aug-86 

ESTAC2. IMG/I 17K 31-Aug-86 

FTHSTR. BIN/A 2K 29-May-86 

FTHSTR.DOC/A IK 29-May-86 

RELSEQ.B1M/B IK 29-May-86 

SEQREL.BIN/B IK 29-May-86 

FILES. BIK/B 4K 12-May-86 

CBMDIR, IMG/I IK ll-May-86 

VBACK.BIN/B 2K 09-Mar-8€ 

SF2BLZ. IMG/I 5K 07-Mar-86 

VFILE.BIN/B 3K 05-Mar-86 

FLOAT. BIN/B UK 26-Feb-86 

MULTI.BIN/B 4K 26-Feb-86 



BACKUP -BIN 

REALCL.BIN 



BFASM. DOC/A 29K 10-Dec-85 



BFVDTE.TXT 

FPORT. IMG/ 

HFGFC0.DOC 

BFGFCO.IMG 

BFCYAD.IMG 

DECOMP.IMG 

DIR. IMG/I 

BFEDIT.DOC 

BFORTB.IMG 

ARTHUR. IMG 

EXAMPL.FTB 

SIEV83.SRC 

BFHSRCBIN 

SRCWRT.DOC 

SRCHRT.IMG 

BFDEMO.SRC 

BFRTH1 , IMG 

BFRTH2.DOC 

BFRTH3.DOC 

BFRTH4.DOC 

BFRTH5.DOC 

BFRTH6.DOC 

BFRTH7.DOC 

BFRTH8.DOC 

BFRTH9.DOC 

MON. IMG/I 



B 2K 18-Feb-86 
B 2K 18-Feb-86 



A 6K 09-Dec-85 

IK 25-Rov-85 

A 12K 20-Oct-85 

I 6K 20-Oct-85 

I 4K 23-Sep-S5 

I 3K 16-Sep-85 

2K 13-Sep-85 

A 3K 12-Sep-85 

I 23K 08-Sep-85 

I 7K 04-Sep-85 

A 4K 27-Aug-85 

A IK 27-Aug-85 

B 61K 25-Aug*85 

A IK 25-Aug-85 

I IK 25-Aug-85 

A 2K 24-Aug-85 

I IK 07-Aug-85 

A 20K 07-Aug-85 

A UK 07-Aug-85 

A 8K 07-Aug-85 

A10K 07-Aug-85 

A 18K 07-Aug-85 

A 9K 07-Aug-85 

A 19K Q7-Aug-85 

A 11K 07-Aug-85 

4K 29-Oct-84 



Brief description 

Overview of the Forth programming language 
Directory of all files in LIB 5 to date 
Blazin' Forth VT52 terminal emulator 
A review of Steve Burnap's FORTH tutorial book 
Forth program to exercise SID chip 
Blazin' Forth sequential file printer 
Fport source to demos described in BFfiSRC.BIN 
Structured programming constructs in bforth83 
Text by George Hawkins on structured programing 
Explains the inner workings of Blazin' Forth 
First assembler source for Blazin' Forth Compiler 
Support file for Blazin' Forth (Macros) 
Support file for BForth (global declarations) 
Support file for BForth (constant declarations) 
Second source file for Blazin' Forth Compiler 
Third source file for Blazin' Forth Compiler 
Fourth source file for Blazin' Forth Compiler 
Fifth source file for Blazin' Forth Compiler 
Sixth source file for Blazin' Forth Compiler 
Seventh source file for Blazin' Forth Compiler 
Eighth source file for Blazin' Forth Compiler 
Ninth source file for Blazin' Forth Compiler 
BForth code to do dynamic memory management 
Documentation for ESTAC2 . IMG 
BForth floating point math in FPORT file 
64FORTH string handling program 
Documentation for FTHSTR.BIN 
Converts 64FORTH REL to SEQ file 
Converts SEQ file to 64FORTH REL file 
Gives BForth C like files (fopen r f close, etc) 
Directory using CBM' s DOS directory, FPORT file 
Backup for files created with VFILE.BIH 
Translate screens between Super Forth and BForth 
Save BForth code as commodore REL files 
Forth 83 floating point math words 
Add background tasks to BForth 
Utility to backup screens 
Forth words to access the c64's hardware clock 
Blazin' Forth Assembler tutorial 
Blazin' Forth terminal program example 
Upgraded FPORT file transfer utility 
Documentation for HFGFCO.IMG 
HES 64FORTH graphics program 
Decompiler for Blazin' Forth 
Decompiler for Blazin' Forth 
Disk Directory for Blazin' Forth Command - DIR 
Procedure for adding full screen editor to BForth 
Scott Ballantyne's Blazin' Forth Compiler system 
Arthurs Theme r Blazin' Forth music 
Help for Forth- 83 changes to 'Starting Forth' 
Forth- 83 Sieve of Eratosthenes 
Squeezed source code for BFORTB.IMG 
Documentation for SRCWRT.IMG and BFHSRCBIN 
Convert squeezed format source to Forth screens 
BForth Turtle graphics demo 
Readme file for BFORTB.IMG 
Documentation for BFORTH. IMG (part 1) 
Documentation for BFORTB.IMG (part 2) 
Documentation for BFORTH. IMG (info on string pkg) 
Documentation for BFORTH. IMG (sound extensions) 
Documentation for BFORTH. IMG (turtle graphics) 
Documentation for BFORTH. IMG (misc. info) 
BFORTB.IMG help file 1 for 'Starting Forth' text 
BFORTB.IMG help file 2 for 'Starting Forth' text 
Monitor for HES 64FORTH (only) 



HPQWER.SCR/A IK 
CONCAT. SCR/A 2K 
DECRYP . SCR/A IK 
MACROS . SCR/A IK 
QX. SCR/A IK 
TABLE. SCR/A IK 
THRU .SCR/A IK 
ASK. SCR/A IK 
CASE. SCR/A IK 
GOES. SCR/A IK 
LIFE. SCR/A 2K 
LSCR. SCR/A IK 
TIME. SCR/A IK 
CANON. DOC/A 9K 
SCMSCR. SCR/A IK 
BOXES. SCR/A IK 
SIEVE. SCR/A IK 
SQROOT. SCR/A IK 



15 -Apr- 8 4 Forth power arguments 

28-Mar-84 Takes PMP screens and creates file for uploading 

28-Mar-84 Takes downloaded file and converts to PMP screen 

28-Mar-84 Updated macros for Performance Micro (PMP) 

28-Mar-84 Prints out screen headers, for PMP 

28-Mar-84 PMP C64FORTH creates tables 

28-Mar-84 PMP C64FORTH word for fetching several screens 

2 B -Mar- 84 Defining word create daughters numeric input 

28-Mar-84 Forth79 CASE statements 

28-Mar-84 Forth recursive decompiler 

28-Mar-84 Forth mathematical/graphic Game of LIFE 

28-Mar-84 Screens contain example life screens 

28-Mar-84 Forth79 words to support clock on 6526 chip 

28-Mar-84 Documentation file describing .SCR format 

28-Mar-84 Simple data encrypter for forth screens 

28-Mar-84 Draws random size and color boxes 

28-Mar-84 Sieve of Eratosthenes benchmark 

28-Mar-84 Returns square root, PMP assembler format 



That empty REU socket: Is it possible to put the 28-pin chip 
from the Epyx Fast Load cartridge into the 1 764? The Fast Load 
cartridge also has one other chip on it. It is a SN7407N DIR 

This info would be greatly appreciated. My Fast Load collects 
dust now because I don't want to keep plugging and unplug- 
ging the 1764, and I have no room for an expander board to 
plug both in, I hope that my Fast Load can be put back into 
action soon. There are probably quite a few people with the 
same need. 

Frank Liuzzi, Broomall, Pennsylvania 

Great idea, Frank, but unfortunately, if s just not possible. The 
Epyx Fast Load cartridge is a transparent cartridge. The car- 
tridge is visible only at particular times, specifically at a hard 
reset and on an access to $deOO. This magic is achieved 
through the 7407N and a discharge capacitor on the cartridge 
board. Although the code maps in at $8000, the command 
parser maps in at $dfi)0. (More magic, because the code for 
the parser is found in the $9f00 range of the EPROM.) 

Placing the EPROM in the REU socket would result in a hung 
machine on power-up because the BASIC lERROR vector is left 
pointing to somewhere in the $dfOO block by the code that ini- 
tializes the cartridge. Result: on an error (i.e., $,/,%, etc.), 
control is passed over to non-existent code at $dfOO and the 
machine most likely crashes. 

Also, the EPROM would grab the $8000 to $9fff block. Because 
the transparency was achieved through the support circuitry in 
the cartridge, we would always be out 8K of BASIC RAM. A ter- 
rible waste! Especially when you consider that the cartridge 
used to be 'invisible' in normal use. 

So, what to use the REU eprom socket for? Mostly home- 
brewed code, I would think. Today's cartridges are a lot more 
sophisticated than those of a few 1 years ago. Not uncommonly 
now, we find kilobytes of bank-switched EPROM, DRAM and 
even microprocessors. Off hand, I can't think of any cartridge 
EPROM that could be plugged into that slot. Anybody know dif- 
ferent? D 
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Got an interesting programming tip, a short routine, or an unknown bit of 

Commodore trivia? Send it in - if we use it in the bits column, we'll credit you in the 

column and send you a free one-year subscription to Transactor. 



Debug Utility 

Jean- Yves Lemieux, Rimouski, PQ 

Debug is a programming utility for the CI 28 that can help a 
machine language programmer in a number of ways. It can 
provide a controlled testing environment for assembler pro- 
grammers: avoid a system crash, detect endless loops, and so 
on. It is an interrupt-driven program that uses NM3 and break 
vectors and a CIA 2 timer to perform a * trace* function. It lets 
you see, step by step, each instruction that your CI 28 exe- 
cutes, displaying register contents, PC address and disassembly 
of the next instruction to be executed. 

This version is loaded at $03000. You 11 need to reassemble to 
relocate it. Enable it with sysl2288 from BASIC or jf3000 from 
your monitor. Now you're ready to use Debug* $ two com- 
mands; Walk and Quick. 

W <start address> (eg. w 2000): The first instruction is 
executed and you are then presented with a register display, 
PC address and the disassembled next instruction. Debug is 
waiting for your next command. Pressing a key will result in 
the execution of the next instruction. Run/stop will stop 
walking. 

Q <routine address>: This command only works during a 
walk and at the beginning of a subroutine. Following instruc- 
tions will be executed at nearly full speed until an rts or BRK 
is encountered. No display is provided during this process. 
You should use the Quick command for normal system sub- 
routines (BASIC or Kernal) since Walking through these will 
probably cause unpredictable results. 

You can disable Debug with RUN/STOP-RESTORE. Debug gener- 
ates system interruptions via Timer A of CIA 2 ($dd00). During 
a Walk or a Quick command a timer is set to generate an nmi. 
The registers are then pulled from the stack and are saved with 
the program counter for future use. Since the timers of CIA I 
are often used for system tasks (I/O), Timer A of CIA 2 (which 
generates only NMI) has been used. Because of the timer's in- 
volvement with RS-232 operations, you should not try to use 
Debug for RS-232 routines. 



Listing 1: debug, gen 

OC 100 rem prg. gen. for debug. obj 

EK UO n> H debug.obj" 

DD 120 nd=376:sa=122S8:ch=39305 

K0 130 fori=ltond;readx 

EC 140 ch=ch-x;next 

PB 150 if chthenprinf'data error": stop 

DE 160 print "data ok, now creating file" 

CM 170 restore 

CH 180openl,8 f l/ l 0:"+n$ 

KM 190 hi=int(sa/256}:lo=sa-256*hi 

NA 200 printfl,chr$(lo)chr$(hi); 

KD 210 fori=ltond:readx 

HE 220 print #l,chr$(x); : next 

JL 230 closel 

MP 240 print "prg file M, ;n$; n ' created.,/ 

MH 250 print "this generator no longer needed." 

LE 12288 data 120, 119, 185, 160, 48, 141, 22, 3 

NB 12296 data 140, 23, 3, 169, 53, 160, 48, 141 

HJ 12304 data 46, 3, 140, 47, 3, 169, 64, 162 

ID 12312 data 250, 141, 157, 2, 142, 15B, 2, 169 

BI 12320 data 0, 141, 154, 2, 141, 155, 2, 88 

EC 12328 data 0, 198, 4, 208, 2, 198, 3, 76 

BO 12336 data 70, 176, 76, 178, 176, 201, 87, 208 



32, 167, 183, 176, 244, 166, 96 

97, 165, 98, 133, 2, 134, 4 

3, 186, 142, 156, 2, 169, 40 
49, 133, 250, 134, 251, 108, 250 
32, 152, 85, 32, 125, 255, 83 
32, 65, 67, 32, 88, 82, 32 
82, 32, 83, 80, 32, 80, 67 

0, 166, 2, 165, 3, 201, 64 

2, 162, 15, 134, 104, 133, 103 

4, 133, 102, 160, 0, 185, 5 
32, 165, 184, 200, 192, 5, 144 
32, 146, 184, 160, 0, 174, 170 

FE 12440 data 2, 134, 77, 32, 26, 177, 32, 89 

JO 12448 data 182, 32, 8, 182, 166, 77, 142, 170 

EN 12456 data 2, 76, 152, 85, 173, 157, 2, 172 

PL 12464 data 158, 2, 141, 24, 3, 140, 25, 3 

JH 12472 data 96, 169, 128, 141, 14, 221, 173, 13 

KM 12480 data 221, 32, 172, 48, 216, 104, 133, 2 

MK 12488 data 104, 133, 8, 104, 133, 7, 104, 133 

EL 12496 data 6 r 104, 133, 5, 104, 133, 4, 104 

KJ 12504 data 133, 3, 186, 134, 9, 88, 165, 5 

LA 12512 data 41, 16, 240, 3, 76, 41, 48, 44 



DP 12344 data 249, 

PR 12352 data 164, 

BC 12360 data 132, 

EI 12368 data 162, 

IJ 12376 data 0, 

MK 12384 data 82, 

m 12392 data 89, 

LJ 12400 data 13, 

DL 12408 data 144, 

FI 12416 data 165, 

IE 12424 data 0, 

ED 12432 data 245, 
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FB 12520 

OH 12528 

LD 12536 

PD 12544 

AG 12552 

NE 12560 

HI 12568 

BD 12576 

HE 12584 

IH 12592 

IF 12600 

GF 12608 

JE 12616 

FB 12624 

OK 12632 

01 12640 

OL 12648 

KI 12656 



data 154. 
data 2.. 
data 32, 
data 240 , 
data 89, 
data 240, 
data 48, 
data 2, 
data 169, 
data 17, 
data 41, 
data 12, 
data 169, 
data 169, 
data 9, 
data 185, 
data 9, 
data 165, 



2, 48, 

208, 58, 

196, 119, 

5, 144, 

48, 32, 

248, 201, 

201, 81, 
169, 1, 

128, 141, 
208, 168, 
239, 141, 

202, 208, 
57, 141, 

129, 141, 

1, 141, 

141, 25, 

154, 165, 

5, 72, 



12, 166, 9, 
169, 0, 141, 
166, 9, 236, 

3, 76, 47 r 

18, 192, 32, 

3, 208, 3, 
208, 11, 186, 
141, 154, 2, 
154, 2, 162, 

41, 16, 240, 

17, 208, 234 , 

253, 136, 208, 

4, 221, 142, 

13, 221, 173, 

14, 221, 169, 
3, 142, 24, 
3, 72, 165, 

165, 2, 76, 



Listing 2: debug. pal 

GL 9 ope^^V'Oidebug.o" 
LN 10 sys700 



OF 


20 ; * debug source code 




IE 


30 ; * for the cl28 




GA 


40 ; * by jean-yves lemieux * 


NC 


50 ; * rimouski, quebec 




JO 


60 ; * feb. 


1989 




MA 


70 . ************************ 


GM 


BO ; 






LG 


90 .opt o2 






KK 


100 ; 






CC 


110 bkby 


=$02 ; 


bank byte 


AL 


120 pchi 


=$03 ; 


prg counter hi 


MH 


130 pclo 


=$04 i 


" " lo 


EN 


140 sreg 


=$05 i 


cpu status reg 


AM 


150 areg 


=$06 j 


ace. reg. 


OG 


160 xreg 


=$07 


x " 


OH 


170 yreg 


=$08 


y " 


MC 


180 sptr 


=$09 ; 


stack pointer 


CB 


190 hinmi 


=$298 ; 


nmi ptrs 


DN 


200 lonmi 


=$299 




KC 


210 cmdflg 


=$29a ; 


walk flag 


FA 


220 qflg 


=$29b ; 


quick " 


AN 


230 rflg 


=$2 9c ; 


return flag 


KM 


240 oldnmi 


=$29d ; 


storage for nmi 


DD 


250 brvec 


=$316 ; 


break vector 


BK 


260 nmivc 


=$318 ; 


nmi 


PK 


270 exmon 


=$32e ; 


exmon " 


OF 


280 talo 


=$dd04 ; 


timer a low byte 


BE 


290 tabi 


=talo+l ; 




JN 


300 icr 


=$dd0d ; 


int. cntl reg, 


MN 


310 era 


=$ddGe 


control reg. a 


JE 


320 prcr 


=$5598 i 


has. print <cr> 


IH 


330 gslow 


=$77c4 


" slow cmd 


JO 


340 prsp 


=$5604 


" print space 


JN 


350 meval 


=$bla7 


mon eval entry 


GD 


360 orimm 


=$ff7d 


kernal print 


OF 


370 getin 


=$ffe4 


" get 


CP 


380 ; 






DN 


390 *=$30QC 


;'sysl2288' 




GA 


400 ; 






GP 


410 init 


=* 




KB 


420 ; 






HE 


430 


sei 




OI 


440 


Ida #<newbrk 


; break vector 


MJ 


450 


ldy i>newbrk 


mill point to 


EI 


460 


sta brvec 


;newbrk routine 


CA 


470 


sty brvec+1 




BK 


480 


Ida #<wtwalk 


; exmon 


FL 


490 


ldy #>wtwalk 


; point to 


FL 


500 


sta exmon 


;wtwalk 


AD 


510 


sty exmon+1 





236, 


155 


LC 


520 


155, 


2 


HH 


530 


156, 


2 


MI 


540 


48, 


32 


EL 


550 


228, 


255 


EM 


560 


76, 


47 


FD 


570 


142, 


155 


HM 


580 


208, 


5 


MN 


590 


0, 


173 


OG 


600 


16, 


152 


IN 


610 ; 


234, 


160 


LI 


620 rmon =* 


250, 


120 


MO 


630 ; 


5, 


221 


JN 


640 


14, 


221 


MB 


650 


48, 


162 


JM 


660 


3, 


166 


EB 


670 ; 


4, 


72 


BF 


680 inmon = 


242, 


2 


IC 


690 ; 






AF 


700 






MD 


710 ; 






EEL 


720 norm ■* 






AF 


730 ; 






CI 


740 






EG 


750 ; 






FG 


760 






HN 


770 ; 






HK 


780 






NC 


790 






01 


800 






IF 


810 






GI 


820 






JD 


830 






EE 


840 






KP 


850 






EF 


860 






OD 


870 



Ida #$40 

Idx |$fa 
sta oldnmi 
stx oldnmrU 
Ida fO 
sta cmdflg 
sta qflg 
cli 
brk 



; normal 
;nmi entry 



; init 'walk' I 

;' quick' flags 



;jump to newbrk 



; return to monitor 

dec pclo 
bne inmon 
dec pchi 



jmp $b046 



; init mon. entry 



IP 890 

AG 900 

DP 910 

DL 920 

LH 930 

10 940 

MC 950 ; 

BD 960 direg = 

AE 970 ; 

OK 980 

DA 990 

EE 1000 .asc " 

OK 1010 .byte 

KP 1020 

KI 1030 

EI 1040 

JB 1050 

IN 1060 

FB 1070 dl 

DB 1080 

AK 1090 

EC 1100 

JN 1110 

NN 1120 d2 

DJ 1130 

KC 1140 

FO 1150 

KO 1160 

JE 1170 

HO 1180 

JE 1190 

KA 1200 

AD 1210 

HO 1220 

KD 1230 



jmp $b0b2 
wtwalk =* 

cap IV 

bne norm 
jsr meval 
bes norm 
Idx $60 
ldy $61 
Ida $62 
sta bkby 
stx pclo 
sty pchi 
tsz 

stx rflg 
Ida #<valk 
Idx t>walk 
sta $fa 
stx $fb 



; exmon norm, entry 

; read keyword for 
walk command 



; evaluate cmd 

; store addr 
; taken from 
;opl 



; store stack ptr 
;for 'rts' eval. 

;jump to walk 
; routine via 
; z-page 



; display registers 



jsr prcr 

jsr primm 
sr ac xr yr sp 
$0d,0 

Idx bkby 

Ida pchi 

emp #$40 

bec dl 

Idx #$0f 

stx $68 

sta $67 

Ida pclo 

sta $66 

ldy #$00 

Ida f sreg,y 

jsr $b8a5 

iny 

cpy #5 

bec d2 

jsr $b892 

ldy #0 

Idx $2aa 

stx $4d 

jsr $blla 

jsr $b659 

jsr $b608 



pc' 



;is it a basic 
;or kernal call 



;so, set 'bank 15 r 



; display 2 -char 
;ascii for reg 

:S 5- char ascii 
;for pc 

; store 'fetvec 1 

;mon indfet entry 
: test code in ace 
,'mon disassembly 



EP 1240 

HK 1250 

MK 1260 

MG 1270 

GH 1280 

NE 1290 

KI 1300 

AF 1310 

MH 1320 

GD 1330 

HI 1340 

CD 1350 

GM 1360 

AN 1370 

CC 1380 

EG 1390 

GH 1400 

MP 1410 

JL 1420 

AJ 1430 

KB 1440 

FD 1450 

BC 1460 

HP 1470 

GF 1480 

KF 1490 

JG 1500 

X 1510 

GG 1520 

CI 1530 

MI 1540 

GJ 1550 

EL 1560 

KK 1570 

EK 1580 

AD 1590 

JH 1600 

IN 1610 

GB 1620 

DN 1630 

00 1640 

HI 1650 

PM 1660 

LL 1670 

LB 1680 

MA 1690 

KK 1700 

NN 1710 

PL 1720 

ID 1730 

DH 1740 

ME 1750 

JB 1760 

FO 1770 

IK 1780 

LG 1790 

HD 1800 

NN 1810 

CJ 1820 

DO 1830 

GK 1840 

GD 1850 

BK 1860 

BI 1870 

IK 1880 

BA 1890 

LB 1900 

BE 1910 

GP 1920 

OB 1930 

KA 1940 

NC 1950 

DB 1960 



Idx $4d 
stx $2aa 
jmp prcr 

1 

t 

rest =* ; restore nmi vec 

Ida oldnmi 
ldy oldnmi+1 
sta nmivc 
sty nmivc+1 
rts 

■ 

r 

newbrk =* ; break routine 

# 

Ida #$80 
sta era 
Ida icr 
jsr rest 
eld 
pla 

sta bkby 
pla 

sta yreg 
pla 

sta xreg 
pla 

sta areg 
pla 

sta sreg 
pla 

sta pclo 
pla 

sta pchi 
tsx 

stx sptr 
cli 

Ida sreg 
and #$10 
beq nl 
jmp rmon 
nl bit cmdflg 
bmi ckrfg 
Idx sptr 
cpx qflg 
bne delay 
Ida #0 
sta qflg 



; restore 'fetvec' 



; regain control 

; from timer 



;get reg contents 
;from stack 
;and store in z-p 



; store stack pntr 



.■get cpu status 
; break bit set 
;no then continue 

;if bit 7 set 

.-then do 'walk' 
;did we reached 
;the end of 
;of subroutine 
;yes, stop running 
;and walk 



cxrfg =* ; check for last rts 

jsr gslow 
Idx sptr 
cpx rflg 

beq wtcmd 
bec wtcmd 
jmp inmon 



wtcmd =* ;wait for new 



jsr direg 
wl jsr $c012 
jsr getin 
beq wl 
emp #$03 
bne quick 
jmp inmon 

« 

quick =* ;full speed and 

emp #Y 
bne walk 



; check ki>d matrix 
;get char 

;stop key pressed 
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BK 1970 

FF 1980 

FO 1990 

PJ 2000 

LG 2010 

KF 2020 

NO 2030 

OG 2040 

HO 2050 

LN 2060 

MI 2070 

JC 2080 

AK 2090 

LH 2100 

HN 2110 

HB 2120 

KD 2130 

PJ 2140 

NB 2150 

IJ 2160 

BF 2170 

AF 2180 

NF 2190 

OL 2200 

OM 2210 

AG 2220 

CO 2230 

HA 2240 

JN 2250 

PM 2260 

NE 2270 

OA 2280 

NF 2290 

EP 2300 

GO 2310 

AG 2320 

NN 2330 

HE 2340 

JB 2350 

IJ 2360 

ND 2370 

IE 2380 

Mi 2390 

JK 2400 

AO 2410 

OK 2420 

KP 2430 

GO 2440 

OA 2450 

GO 2460 

CC 2470 

KB 2480 

PR 2490 



tsx 
stx qflg 

Ida fl 
sta rmriflg 
bne delay 

walk =* ;walk and rout 

Ida 1580 
sta cmdflg 



; store 'return' 

/address 

;set 'quick' fig 



KD 30 get#t,a$,b$:printa$b$; ; next .print 

: ifb$<>""thenx=y : waitp, q, t :pokep, O : goto20 
EG 40 closet 



;set 'walk' fig 



delay =* ; delay for raster 



ldx#0 
Ida SdOll 
tay 

and t$10 
beq d4 
tya 

and f$ef 
sta $d011 
nop: nop 
ldy #$0c 

d3 dex 
bne d3 
dey 
bne d3 

d4 sei 

Ida t$39 
sta $dd04 
stx SddOS 
Ida |$81 
sta icr 
Ida era 
ora fl 
sta era 
Ida (Newbrk 
ldx #<newbrk 
Sta nmivc+1 
stx nmivc 
ldx sptr 
txs 



:set clock timer 
;in cia2 

; enable timer a 
; start timer 



i 

jmpfar ** ; prepare jmpfar 



Ida pchi 
pha 

Ida pclo 
pha 

Ida sreg 
pha 

Ida bkby 
jtDp $2f2 



; jmpfar entry 



Shortest Catalog in basic 2.0? 
Michael Gilsdorf, Toledo, OH 

Here's a little four-liner for the C64 (or vie) that will get you an 
on-screen disk directory in a hurry. It features a pause function 
that can be toggled on or off by pressing any key. No ml code - 
so you can easily tailor it to your needs (change device or drive 
number, display specific files, etc.). It may very well be the 
shortest, fastest BASIC directory routine with a pause feature. 



AI 



j j 



10 t=l:x=12:n$=chr$(0> :p=198 :q=255 :y=13 

:printchr$(147) :opent, 8,0, M $0" :get#t, a$ 

20 get#t,a$,a$,a$,a$,b$,c$ 

: printasc (b$+n$ ) *256+asc (a$+n$ ) c$ ; : f ori=ttox 



- 



*-. 



Don't Assume Device 8! 
Michael Gilsdorf, Toledo, OH 

If you're writing a program that loads, saves, or otherwise ac- 
cesses the disk drive, don't assume the default is always de- 
vice 8, drive O. Allow users the option to use drive 1 (for dual 
drives) and devices 8, 9, 10 and 11 as well. Programs which 
allow the use of multiple devices and drives eliminate the need 
to have the user swap program and data disks. 

So how do you tell which device numbers the user may want 
to use? Simple! First, PEEK location 186 to tell what device 
number was used to load the program file (last device number 
accessed). Use this same number if the program will be load- 
ing any additional program files. This location is the same on 
both the C64 and CI 28. Second, by opening and closing the 
device, then reading the Sl&tus, you can tell what devices are 
present. Here's a short and simple BASIC routine that demon- 
strates this. It checks the last device number accessed, which 
device numbers are present, and the type of drive, 

PC 10 rem device number check -- by michael gilsdorf 
LP 20 dn=peek{186) : print "device number" ;dn; 

" : accessed last" 
AM 30 for dv=8 to 15: open 1, dv, 15:closel 
LK 40 print "device number" ;dv; " : ™; 

:a$="not present": if st<0 then 70 
OP 50 openl,dv, 15, "uj":for d=l to 

1000 : next : input #1 , a, a$ : closel 
GC 60 a$=right$(a$ r 4) :if left$ (a$, 1)<>"1" 

then a$=" drive unknown" 
JA 70 print a$ : next 



Disk Partitions On The 1571 
M. Garamszeghy, Toronto, ON 

Being a developer of software for the CI 28 in both its native 
mode and CP/M mode, I frequently send out program disks to 
various people for 'beta testing* (i.e. testing of the programs 
by others before release to the general public). In order to save 
on disk and mailing costs, I sometimes send out more than one 
program on a disk. 

Sometimes I even send out CP/M and CI 28 software on the 
same disk. Since I do not like using flippy disks, I have devel- 
oped a method to partition a 1541 or 1571 disk so that it can 
be used by both CP/M and CBM DOS at the same time. The pro- 
gram listed below gives you just over 70K available to CP/M 
and about 70K (for a single-sided 1541 disk) or 240K (for a 
double-sided 1571 disk) for use by normal cbm DOS. (The 
numbers include the inefficiencies in disk utilization caused by 
the chosen cp/m format,) 
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The program works by formatting the disk in CBM DOS mode 
normally, then reserving tracks 1 to 17 with the DOS block- 
allocate command. You then write a blank CP/M directory (i.e. 
all bytes set to hex $e5) to track 3, and presto you have a C64 
style CP/M disk for use in CI 28 CP/M mode (or C64 CP/M if you 
have the CP/M cartridge) occupying the lower half of the disk 
and a CBM DOS disk in the upper tracks. 

It should be noted that there are some limitations to this tech- 
nique. Firstly, you must not validate or 'collect* the disk in 
CBM dos mode. This would de -allocate the reserved CP/M 
tracks. Secondly, you must not put more than about 70K of 
stuff in the CP/M area or else you will overwrite the CBM DOS 
BAM, directory, and data tracks. 



ih partition.bas 



M 



rem device! 



."dv 



IE 10 rem ******************************** 

BJ 20 rem partition v 1.0 

EA 30 rem <c> 1988 heme data systems ltd. 

GG 40 rem ******************************** 

GR 50 : 

Kf 60 dv=8 : 

DA 70 print "(clr) partition vl.O" 

DK 80 print " <c> 1988 heme data systems ltd. 

OJ 90 print : print 

DM 100 input "enter disk name, id code M ;na$ r id$ 

flE 110 print : print "insert new disk in device 

CI 120 print ; print "then press a key to continue ..,." 

HN 130 getkey a$ 

AO 140 print : print "formatting disk => "na$+\"+id$ 

HT 150 open 15 r dv45, ,1 n0: ,, +na$+ ,, , ,, +id$ 

JM 160 input#15,ex$ ; print 

OG 170 printfl5,"iO n 

CG 180 for t=l to 17 

GJ 190 print chr$(27)"jallocating cp/m space . .. track =>"t; 

JF 200 for s=0 to 20 

AA 210 print|15,'"b-a: Q";t;s 

HN 220 next s.,t 

HA 230 open 2,dv,2,T 

ED 240 print : print 

EB 250 print "creating cp/m directory ..." : print 

NK 260 for b*l to 256 

FD 270 print#2 r chr$(229); 

MB 280 next 

FA 290 for s=0 to 8 

KI 300 print chr$(27)"jwriting cp/m directory ... sector =>"s; 

PI 310 printtl5 f "u2: 2 3";s 

EE 320 next 

JK 330 close 2 : close 15 

11 340 print : print "=> done <='' 



D 




Top-Tech International, Inc. 
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Advaicecr Compoie' Systems 




INDUSTRY FIRST - LIFETIME COMPUTER 



Lifetime Warranty— available for any C-64 computer serviced and /or soldhy u*f! 
R»1 Service Rales — FAST, Professional Service 

FuJi line oi CBM computers, peripheral* & parts, ( -64 Power Supply with 3-yr warranty; 

1531 Data&ette 51**5; Hard-lo-find partMSTR-54041); Service Manuals; VIO20 *n<3 

C-64 Cartridges A Tapes: 11.00 cl; 10 for S25 00 r Pot Luck^— No exchanges returns). 

VISA. MASTERCARD, DISCOVER. AMEX 

Orden ONL\: FAX - (215) M9-5920 or CALL - (800) M.VWOI 

No extra ^haws for our 07s.' H-V nani vour busmen!" ^^^ ... .... 

(215) 389-9901 * 1 112 S. Delaware Ave-, Philadelphia. PA 19147 * (215) 389-9901 



AWARD WINNING* 
BIG BLUE READER 128/64 

File Transfer Utility 

Big Blue Reader 128/64 Is Ideal for those who use IBM PC compatible MS- 
DOS computers at work and have the Commodore 128 or 64 at home. 
Big Blue Reader 128/64 is not an IBM PC emulator but rather it is a quick 
and easy to use program for transferring word processing, text and ASCII 
files between Commodore and IBM MS-DOS diskettes. 
Both C128 and C64 applications are on the same disk. 1571 or 1581 disk 

drive is required. Doe* not work with 154 1 type drives, 

BBR transfers 160K-360K 5.25 inch & 720K 3,5 inch MS-DOS disk files. 

Big Blue Reader 128 supports: C-128 CP/M fifes, 17xx RAM exp t 40 & 80 

column modes and more. 

Big Blue Reader 64 is available separately only $29.95 

BIG BLUE READER 128/64 only $44.95 

Order by check, money order, or COD. 

Free shipping and handling. No credit card orders please. 

BBR 128/64 Is available as an upgrade to current users 

for $18 plus original BBR disk. Foreign orders add $4 

CALL or WRITE for more information. 

NEW - BIBLE SEARCH - Complete KJV New 
Testament with very fast word and verse search 
capabilities. Complete Concordance. Word(s) in text 
can be found and displayed in seconds. Includes both 
C64 and CI 28 mode programs. Please specify 1541, 
1571 or 1581 formatted disk, only $25,00 

To order Call or write: 
SOGWAP Software 

115 Bellmont Road; Decatur, IN 46733 
Ph (219) 724-3900 

'Big Blue Reader was voted the best utility program by RUN's 1968 
Reader Choice Awards. 



JASON-RANHEIM 

CARTRIDGE MATERIALS 
FOR YOUR COMMODORE 64 or 128 

Quality Products 
from the World Leader! 

• Promenade C1 EPROM Programmer 

• Game Type Cartridges 

• Bank Switching Cartridges 

• RAM/ROM Combination Cartridges 

• Capture Archival Cartridge System 

• Cases, EPROMS, Erasers, Etc. 



Call or write for complete information! 



t 



Call Toll Free 
from California 
Tech Support 



800-421-7731 
916-878-0785 
916-878-0785 




JASON-RANHEIM 

3105 Gayle Lane 
Auburn, CA USA 95603 
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Two Kinds of Numbers 



by Todd Heimarck 

I want to start by explaining how I write this column. The kind 
editor (ke) lets me know two weeks before the deadline that 
he needs to fill up some pages in the magazine and that I 
should write another column. I say to myself, "Well, if it were 
me, topic xyz would be interesting." Sometimes I suggest the 
idea to the ke, who usually says either "Fine" or "No, we did 
that two years ago." 

But I'm never sure if the xyz topic interests you. You buy this 
magazine; you should get a vote. If there's something you 
want to see, let me know. Send a letter to: The ML Column, 
Transactor, 85 West Wilmot St., Unit 10, Richmond Hill, ON, 
Canada, L4B 1K7 (they'll forward it to Seattle). Or leave elec- 
tronic mail on CompuServe to ID 76703,3051. 

If you saw the last issue (Volume 9, Issue 5), you saw the let- 
ter from Barry Kutner. He wants to read more about in- 
put/output routines in machine language. Sounds good to me. 
We'll look at I/O in the next issue. 

This issue we'll finish the big numbers idea from last issue. 

Kinds of people 

Someone once said that there are two kinds of people in the 
world: people who think there are two kinds of people and 
people who don't. 

For thousands of years, mathematicians have made a less trivial 
distinction. They divide whole numbers into primes and compos- 
ites. Each prime number is divisible only by 1 and itself; it has no 
other divisors. Every composite number is divisible by two or 
more primes. For example, 650 breaks down into 2 * 5 * 5 * 13. 
The numbers 2, 5, and 13 are primes; 650 is a composite. 

There's no formula for testing primes and there probably never 
will be. 

In the third century BC, a Greek mathematician named Eratos- 
thenes invented a way to generate prime numbers. His method, 
The Sieve of Eratosthenes, is still in use because it's simple 
and it works. You go through a list and cross off all numbers 
that are composite. Whatever 's left is a prime. 



Let's say you want the prime numbers betwen 2 and 30. Write 
down the numbers. The first prime is 2. Now you cross out all 
multiples of 2 - the even numbers 4, 6, 8, 10, and so on. Next on 
the list is 3, another prime. Cross out 6, 9, 12, 15, and so on. Al- 
though 4 comes after 3, it's been crossed off, being a multiple of 
2, so you skip ahead to 5. The remaining primes (after some 
more crossing out) are 7, 11, 13, 17, 19, 23, and 29. 

Running the program 

The program Primes calculates all prime numbers up to 
8,386,549. To run it, just sys 49152. It prints them to the 
screen. If you prefer, you can redirect output to a disk file or 
the printer (with open 4,4:cmd 4:sys 49152, for example). 

Be prepared to wait; it takes nearly four hours to print all of 
the primes. 

If you're curious about how I fit 8,000,000+ variables into a 
program, I'll admit that 1 cheated a bit. You must have a RAM 
Expansion Unit (reu) installed. I wrote it for a 1750 REU 
(512K), but it should work just as well with the 1764 (256K) 
or the 1700 (128K), If you have less than 512K, change the 
variable REUTYPE at the end of the program. Putting a smaller 
number into REUTYPE also makes the program run faster; theo- 
retically, every time you cut the value in half, you get half as 
many primes, but the program finishes in half as much time. 

It runs on a 64, but you can reassemble it to a new location in 
the range 0-16384 and run it without modification on a 128. 1 
tested it at location 5000. Two notes for 128 users: Enter a 
bank 15 command before SYSing to the program (to make the 
Kernal ROM and reu registers visible) and don't run the pro- 
gram in FAST mode. The RAM Expander doesn't like FAST 
mode. 

Let the data write the program 

This is one of those programs that's built around the data 
structure. Once you figure out how to fit the data in memory, 
the program almost writes itself. 

Begin with the 1750 REU's memory of 512K. That should be 
enough for 524,288 byte-sized variables. We don't need entire 
bytes, though, because each variable has only two possible 
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states: prime or not-prime. That amount of information can fit 
into a bit. Well arbitrarily decide that 1 means prime and 
means composite. There are eight bits in a byte, so we have 
room for about 4,000,000 variables. 

There's one more trick to stretch the data. We can ignore all 
even numbers, which always end with a zero in base two, any- 
way. We'll only deal with odd numbers. Byte of the REU will 
hold eight bits representing the odd numbers 1, 3, 5, 7, 9, 11, 
13, and 15. In byte 1, the bits are 17-31. In byte 2, the bits are 
33-47, and so on. 

The program has two primary subroutines named FILLREU and 
PRIMES. The first fills up memory with $ff bytes (because we 
start out assuming that all odd numbers are prime until they're 
crossed off the list). The second prints out the primes, while 
whittling away at the composites. 

Talking to the REU 

The RAM Expansion Unit's 11 registers map into the addresses 
$df(X)-df0a on both the 64 and 1 28. The important ones are: 

• dmacmd (SdfOl): a multipurpose command register. When 
you store a value here, the appropriate command executes. 
In bits 0- 1, the value 00 means STASH, 01 means FETCH, 10 
means SWAP, and 1 1 means verify. Bit 4 should be if you 
want the command to execute immediately (if it's a 1, the 
command waits until a value is stored at SffOO, which is 
useful on the 128 in some situations). Bit 5 is the load flag. 
If it's 0, the addresses in DMAADL and DMALO are automati- 
cally incremented after a memory access. If it's 1, the 
addresses are restored to their original values. Bit 7 is the 
execute flag; it signals the REU to begin the operation speci- 
fied in bits 0- 1 . 

• DMAADL ($dft)2): two bytes that specify an address inside 
the computer. In this and other registers, the low byte is 
stored before the medium or high bytes. 

• DMALO ($df04): three bytes that specify an address inside 
the reu. Whether or not the addresses in dmaadl and 
DMALO increment depends on bit 5 of DMACMD (after an 
operation) and bits 6-7 of $df0A (during an operation). 

• DMADAL ($df07): two bytes that specify the number of 
bytes to transfer. Up to 65,535 bytes can be transferred. 

• dmaver (SdfOa): address control register. Bit 6 controls 
whether the REU memory increments during an operation (0 
means yes, 1 means no). Bit 7 controls whether the system 
memory increments. 

The FILLREU routine begins by putting the number $ff into 
mval, which happens to be location $00ff. We want to fill the 
whole REU with $ff because ones represent prime numbers and 
we assume that all numbers are prime until proven otherwise. 
That one byte will fill all 512K because an S80 is stored in 



DMAVER. Next, we put 4096 into NBYTES (a shadow of 
DMADAL) and set the addresses in C64MEM and REUMEM (shad- 
ows of dmaadl and dmalo). Then copy the shadow registers 
to the real REU registers in the COPYREGS subroutine. Then 
loop 128 times (or 64 or 32 times for a 1764 or 1700 RAM 
Expander). 

When FILLREU is finished, the reu should contain nothing but 
ones. 

Skipping over even numbers 

We've already decided that we don't need to bother with even 
numbers. That means the program's outer loop has to count 
from 1 to 3 to 5 to 7, up to 8 million, two at a time. 

In the inner loop where the multiples of x get zapped, we 
can count 2 * .v numbers at a time. For example, if we dis- 
cover that 5 is a prime number, the algorithm says that we 
cross off every fifth number: 10, 15, 20. 25, etc. But we're 
ignoring even numbers, so we needn't bother with 10, 20, 
30, and the others. Start with 5, add 10 (making 15), add 
ten (25), add ten (35), and we'll zap only the odd multiples 
of 5. 

The second major subroutine, called primes, contains mostly 
JSRs to other routines in the program. Start out with the num- 
ber 1 and clear that bit (meaning that 1 is not prime). Then the 
main loop (main) begins. Add two to the number in BIG. BIG 
is similar to BIGS1X from the last column, but it holds only 
three bytes instead of six. A second three-byte number is TEST 
(used for the inner loop). A third is DOUBLE, which is just BIG 
times two. 

The TOOB1G subroutine checks the value in TEST to see if the 
loop (inner or outer) should end because the number has 
grown too large, 

TESTPRIM tests TEST to see if it's prime. When a prime is locat- 
ed, two things happen: printit prints it out (in ASCII decimal) 
and the routines in CPLOOP zap all multiples of TEST. 

The PRINTIT routine is copied almost exactly from MAKEDEC 
from the BIG i. SRC program from last issue. It converts a big 
binary number into printable ASCII characters that provide a 
decimal (base ten) number It also adds a comma and a space 
to separate the numbers. 

With a 512K REU, there is a large delay of about 20 minutes 
between printing the number 3 and the number 5. There are a 
lot of multiples of 3 between 9 and 8.4 million (in that 
20-minute pause, more than a million bits are turned off). 
Between 5 and 7, the delay is only about 12 minutes. The 
delay gradually decreases as the primes get bigger. I inserted 
the inc 53280 line to increment the border colour on the 64 
and on the 128 in 40-column mode. When the border Hashes, 
you know the program is running and not locked up in an end- 
less loop. 
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If you don't want to wait 20 minutes between 3 and 5, make 
reutype a smaller number $80 means 512K, $40 means 
256K, and $20 means 128K. But there's no reason you 
couldn't used a smaller number such as $04 or $02. 

Making bricks 

In a previous column, I said that if basic is a pile of bricks 
from which you can build a house, then ml is like a pile of 
clay from which you make the bricks to build a house. 

The trick, I think, is to make the bricks small enough. 
Makedec from last issue printed out a decimal number. It 
needed only slight modifications to become printit this issue. 

Programming is like musical composition. When you compose 
music, you have to keep the entire structure of the piece in 
mind at all times. But you can divide a symphony into move- 
ments. Movements break down into parts. Parts break down 
into phrases. Those are the bricks. 

When I wrote the PRIMES subroutine, I divided the program 
into small modules that did specific tasks. For example, I 
typed jsr getmvai, knowing that I would eventually write a 
routine that would grab a byte from the REU and put it in 
MVAL. I didn't have the routine written yet, but I knew how to 
write it. 

We've done enough with big three-byte and six-byte numbers. 
In the next column, we'll look into I/O. 

If you'd like to do something with big integers, here's an idea. 
Set aside a 16K section of memory (in the computer, not the 
REU). If you store only odd primes, that's enough memory to 
handle values up to 262,143. Next, ask the user to input a 
number up to about 68 billion (see the gstring routine from 
big l. SRC in Volume 9, Issue 5). Now figure out its factors. If 
the binary number ends with a zero, it's divisible by two, so 
print a 2 and shift to the right. If not, take the square root (see 
BIG2.SRC) and call that MAX, That's the highest possible factor 
if it is a square. Run through the prime numbers from 3 to 
MAX and see if they divide into the target number (see Volume 
9, Issue 2). If you find a factor, calculate the new value of max 
and repeat the loop until you find all of them. 



Listing li prime s.src 



FG 10 rem save"primes . src" , 8 

FO 20 sys700 

OF 30 *=49152 

AJ 40 .opt oo 

KP 50 aval = $ff 

CM 60 scund = 144 

OG 70 fcind = 177 

HH 80 chrout = $ffd2 

LH 90 dmacmd = $df 01 

PC 100 dmaadl = $df 02 

JP 110 daalo - $df04 

KE 120 daadal = $df07 



zero-page location for value to fetch or stash 
stash command 
fetch command 

command for reu 
c64 memory address 
reu memory address 
number of bytes 



Bfi 130 dmavei 


: = $df0a ; if address increments 


a 140 ; 






GO 150 


jsr fillreu , 


fill with Is 


HK 160 


jsr primes 


print all primes 


GJ 170 


rts 




KC 180 ; 






CH 190 fillreu * * 




EE 200 


Ida #Sff 


the fill byte 


PD 210 


sta mval , 


1 the location in 64 memory 


GD 220 


Ida #$80 


don't increment 64 memory 


LG 230 


sta daaver , 


reu register 


BB 240 


Ida t<4096 


4k at a time 


AF 250 


sta nbytes , 


number of bytes 


CP 260 


Ida #>4096 




01 270 


sta nbytes+1 




GA 280 


Ida t<mvai t 


location in 64 memory 


GC 290 


sta c64mem 




EB 300 


Ida f>mval 




MP 310 


sta c64mem+l 




EN 320 


Ida 10 


location in reu memory 


ON 330 


sta reumem 




KK 340 


sta r eumem+ 1 




IL 350 


sta reumem+2 




ON 360 ; 






NO 370 


jsr copyregs 


; copy to reu registers 


DD 380 


ldx reutype 




KA 390 frloop jsr stash 


; stash many times 


BB 395 


Ida #>4096:sta dmadal+1 


HE 400 


dex 




FB 410 


bne frloop 




MP 420 


Ida #1 : sta nbytes ; from now on, one byte at a time 


DI 430 


Ida 10; sta nbytes+1 


FN 440 


Ida f$c0;sta dmaver ; don't increment any addresses 


JM 450 


jsr copyregs 




IL 460 


rts 




KE 470 ; 






GD 480 copyregs = * 




AH 490 


Idy #6 


■ seven registers 


KO 500 crloof 


> Ida c64mem, 1 y 


from memory 


IL 510 


sta dmaadl,y 


to the reu 


DM 520 


dey 




MK 530 


bpl crloop 




IA 540 


rts 




MJ 550 ; 






EH 560 fetch 


= * 




OG 570 


Ida ffcnmd 


fetch command 


AL 580 


bne doit 


branch always 


NJ 590 stash 


= * 




DP 600 


Ida Iscmnd 


stash command 


KA 610 doit 


sta dmacmd 




IF 620 


rts 




EH 630 primes 


[ = * 




LJ 640 


jsr number! 


start with $000001 


HI 650 


jsr getmval , 


fetch bit for 1 


HL 660 


jsr clbit 


clear that bit 


MG 670 main 


jsr addtwo 


add 2 to big 


CJ 680 


jsr big2test t 


copy big to test 


JF 690 


jsr toobig t 


is it too big 


OM 700 


bcc more t 


keep going if ok 


AM 710 


rts 


else get out of primes (because we're done) 


GL 720 more 


jsr testprim 




GD 730 


beq main 


if equal, not a prime 


IL 740 


jsr printit , 


if not equal, we have a prime, so print it 


KI 750 


jsr times2 t 


■ multiply by two 
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Transactor 



cploop jsr composit 
inc 53280 
jsr toobig 
bcs main 

jsr getmval 
jsr clbit 
jmp cploop 

r 

numberl = * 

Ida fl 
sta big 

Ida 10 
sta big+1 

sta big+2 
jsr big2test 
rts 



PD 760 

LM 770 

EF 780 

HK 790 

NF 800 

DM 810 

BO 820 

EL 830 

HE 840 

PD 850 

LR 860 

BF 870 

IJ 880 

DR 890 

BP 900 

KB 910 

OA 920 

DH 930 

KJ 940 

MJ 950 

KK 960 

GL 970 

KE 980 ; 

SI 990 getmval = 



; add test = test + double 



too big, back to the next prime 

fetch from reu 

clear that bit, it isn't a prime 



; start with the number $000001 



big2test - * copy three bytes from big to test 
Ida big: sta test 
Ida big+1 : sta test+1 
Ida big+2; sta test+2 



rts 



get a value from reu and put it in mval 
copy test to reumem 



JB 1000 

GI 1010 

HJ 1020 

MF 1030 

NK 1040 

EH 1050 

GK 1060 

PB 1070 

U 1080 

GI 1090 

DF 1100 

OM 1110 

PJ 1120 

GF 1130 

KO 1140 ; 

HH 1150 rotreu Isr reumem+2:ror reumem+1 : ror reumem: rts 

OP 1160 ; 



Ida test ; 

sta reumem 

Ida test+1 

sta reumem+1 

Ida test+2 

sta reumem+2 

jsr rotreu 

Ida reumem: and |7 

sta bitloc 

jsr rotreu: jsr rotreu: jsr rotreu 

jsr copyregs 

jsr fetch ; get the byte 

Ida mval 

rts 



rotate reumem to right 



bit location (0-7) 



EO 1170 clbit = * 



CL 
DH 

01 
HD 
LM 
BG 

EM 
IF 



1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 



ldx bitloc 
Ida mval 
and bitoff.x 
sta mval 
jsr copyregs 
jsr stash 
rts 



clears a bit (call fetch first) 
bit location 0-7 
value in memory 
clear the bit 



store back in reu 



AA 1260 addtwo = * 



adds two to big 



Mb 

BB 
LO 
DG 

IA 
FA 

KF 

HC 
DC 
JH 
GE 
KN 



1270 
1280 
1290 

1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 



clc 
Ida big 

adc #2 
sta big 
Ida big+1 

adc #0 
sta big+1 
Ida big+2 
adc 10 
sta big+2 
rts 



ON 1390 

GA 1400 

CC 1410 

KN 1420 

MA 1430 

GC 1440 

JA 1450 

NE 1460 

RC 1470 

EL 1480 

IE 1490 

DE 1500 

JI 1510 

IB 1520 

IG 1530 

ML 1540 

HI 1550 

ON 1560 

PI 1570 

KN 1580 

DM 1590 

LO 1600 

FL 1610 

EF 1620 

CC 1630 

AF 1640 

BE 1650 

JC 1660 

IA 1670 

MA 1680 

DF 1690 

AF 1700 

RC 1710 

DM 1720 

JJ 1730 

DG 1740 

HM 1750 

PO 1760 

BB 1770 

AO 1780 

EH 1790 

EL 1800 

AM 1810 

BE 1820 

NE 1830 

MB 1840 

AL 1850 

GK 1860 

EM 1870 

FB 1880 

LP 1890 

NA 1900 

CG 1910 

OG 1920 

PJ 1930 

EH 1940 

00 1950 

AC 1960 

NH 1970 

BE 19B0 

JP 1990 

HC 2000 

OK 2010 

HL 2020 

HM 2030 

10 2040 



toobig = * ; checks test for out of range (about 8 million for 512k reu) 
Ida test+2 ; high byte of test 
cmp reutype 
rts ; carry set means error/too big, clear means it's ok 



testprim = * 

jsr getmval 
ldx bitloc 
and biton,x 
rts 



printit 

mdlpl 

mdlp2 



mdcool 



s * 

Ida 
ldx 
stx 

Ida 

asl 
rol 
Ida 
cmp 
sbc 
sta 
php 
lsr 
pip 
rol 
dec 
bne 
Ida 
pha 
Ida 
bne 
pla 
beq 
jsr 
jmp 
jsr 
Ida 
Ida 
rts 



times2 = * 



10: pha 

#24 

count 

#0:sta temp 

test: rol test+1: rol test+2 

temp 

temp 

|10:bcc mdcool 

#10 

temp 

test 



test 

count 
mdlp2 
temp:ora #48 



; 3 bytes = 24 bits 



make it an ascii number 



priloop 



prend 



test:ora test+1 :ora test+2 
mdlpl 



prend 

chrout 

priloop 

big2test 

#4 4: jsr chrout 

#32: jsr chrout 



put test back 

comma 
space 



Ida big: asl: sta double 
Ida big+1 : rol : sta double+1 
Ida big+2: rol: sta double+2 
rts 



composit 



= * 



clc 

Ida test: adc double: sta test 

Ida test+1: adc double+1: sta test+1 

Ida test+2: adc double+2: sta test+2 

rts 
reutype .byte $80; $80 means 512k, $40 is 256k, $20 is 128k 
biton .byte 1, 2, 4, 8, 16, 32, 64, 128 
bitoff .byte 254, 253, 251, 247, 239, 223, 191, 127 
e = * 



c64mem = e 
reumem = e+2 
nbytes = e+5 
big = e+7 
test = e+10 
double = e+13 
bitloc = e+16 
count = e+17 
temp = e+18 



2 bytes 

3 bytes 

2 bytes 

3 bytes 
3 bytes 
3 bytes 
1 byte 
1 byte 
1 byte 



(64k) 

(512k) 
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Listing 2: primes. gen 

HO 100 rem generator for "primes. obj" 

FL 110 n$="prime5,obj": rem name of program 
KB 120 nd=468: sa=49152: ch=70208 

(for lines 130-260, see the standard generator on page 5) 



AC 1000 data 32 


7 


192 


32 


105., 


192 


96 


169 


10 1010 data 255, 


133, 


255, 


169 


128, 


141 


10, 


223 


CG 1020 data 169, 


0, 


141 


217 


193, 


169 


16 


141 


BG 1030 data 218 


193 


169 


255 


141, 


212 


193 


169 


FP 1040 data 0, 


141 


213, 


193 


169, 





141. 


214 


OC 1050 data 193, 


141 


215 


193 


141, 


216 


193, 


32 


MB 1060 data 83 


192 


174, 


195 


193, 


32 


99 


192 


PL 1070 data 169 


16 


141 


8, 


223, 


202 


208 


245 


CE 1080 data 169, 


1, 


141, 


217 


193, 


169 


0, 


141 


KI 1090 data 218 


193, 


169 


192 


141, 


10 


223, 


32 


AL 1100 data 83 


192 


96 


160 


6, 


185 


212, 


193 


BI 1110 data 153 


2, 


223 


136 


16, 


247 


96 


169 


DG 1120 data 177, 


208, 


2, 


169 


144, 


141 


1, 


223 


JI 1130 data 96 


32 


157, 


192 


32, 


193 


192, 


32 


00 1140 data 250 


192 


32 


11, 


193, 


32 


174 


192 


NB 1150 data 32 


37 


193 


144 


1, 


96 


32 


44 


LB 1160 data 193 


240 


239 


32 


54, 


193 


32, 


144 


KG 1170 data 193 


32 


166, 


193 


238, 


32 


208 


32 


JP 1180 data 37, 


193, 


176, 


222 


32, 


193 


192 


32 


M 1190 data 250, 


192, 


76, 


137 


192, 


169 


1, 


141 


JK 1200 data 219, 


193, 


169, 


0, 


141, 


220 


193, 


141 


FC 1210 data 221, 


193 


32, 


174, 


192, 


96 


173, 


219 


IB 1220 data 193, 


141, 


222 


193 


173, 


220 


193 


141 


CC 1230 data 223, 


193 


173, 


221 


193, 


141 


224 


193 


ID 1240 data 96, 


173, 


222, 


193 


141, 


214 


193 


173 


GD 1250 data 223 


193 


141, 


215 


193, 


173 


224 


193 


IA 1260 data 141, 


216, 


193, 


32 


240, 


192 


173, 


214 


LB 1270 data 193 


41 


7, 


141 


228, 


193 


32 


240 


HI 1280 data 192 


32 


240 


192 


32, 


240 


192 


32 


GF 1290 data 83 


192 


32 


95 


192, 


165 


255 


96 


AF 1300 data 78 


216 


193 


110 


215 r 


193 


110 


214 


JO 1310 data 193 


96 


174, 


228 


193, 


165 


255 


61 


JL 1320 data 204 


193 


133 


255 


32, 


83 


192 


32 


PO 1330 data 99 


192 


96 


24 


173, 


219 


193 


105 


JB 1340 data 2 


141 


219 


193 


173, 


220 


193 


105 


HA 1350 data 


141 


220 


193 


173, 


221 


193 


105 


01 1360 data 


141, 


221 


193 


96, 


173 


224 


193 


EL 1370 data 205 


195 


193 


96 


32, 


193 


192 


174 


00 1380 data 228 


193 


61 


196 


193, 


96 


169 





JJ 1390 data 72 


162 


24 


142 


229, 


193 


169 





BM 1400 data 141 


230 


193 


14 


222, 


193 


46 


223 


LN 1410 data 193 


46, 


224 


193 


46 r 


230 


193 


173 


NJ 1420 data 230 


193 


201 


10 


144, 


5 


233 


10 


AM 1430 data 141 


230 


193 


8, 


71 1 


222 


193 


40 


LB 1440 data 46 


222 


193 


206 


229, 


193 


208 


219 


JA 1450 data 173 


230 


193 


9 


48, 


72 


173 


222 


BP 1460 data 193 


13 


223 


193 


13 , 


224 


193 


208 


JN 1470 data 192 


104 


240 


6 


32 , 


210 


255 


76 


EK 1480 data 121 


193 


32 


174 


192, 


169 


44 


32 


KE 1490 data 210 


255 


169 


32 


32, 


210 


255 


96 


IA 1500 data 173 


219 


193 


10 


141, 


225 


193 


173 


G 1510 data 220 


193 


42 


141 


226, 


193 


173 


221 


AM 1520 data 193 


42 


141 


227 


193, 


96 


24 


173 


JD 1530 data 222 


193 


109 


225 


193, 


141 


222 


193 


OD 1540 data 173 


223 


193 


109 


226, 


193 


141 


223 


DG 1550 data 193 


173 


224 


193 


109, 


227 


193 


, 141 


DG 1560 data 224 


193 


96 


128 


1, 


2 


4 


r 8 


EJ 1570 data 16 


32 


64 


128 


254, 


253 


251 


247 


AK 1580 data 239 


223 


191 


127 











Bits & Pieces I 



Th 





□ 




From the famous book of the same name. Transactor 
Productions now brings you Bits & Pieces I: The Disk! 
You'll thrill to the special effects of the screen 
dazzlers! You'll laugh at the hours of typing time 
you'll save I You'll be Inspired as you boldly go 
where no bits have gone before! 



"Extraordinarily faithful to the plot 
of the book. . . The BAM alone is 
worth the price of admission!" 

Vincent Can byte 



'Absolutely 

magnetic!!" 

Gene Syscall 



"If you mount only one bits disk in 1 987, make it this 
onel The fully cross-referenced index is unforgettable! 

Recs Read, New York T\$ 



WARNING. Some sectors contain null bytes. Rdted GCR 



BITS & PIECES I: THE DISK, A Mylar Film, in association with Transactor Productions. 

Playing at a drive near you! 

Disk $8.95 US, $9.95 Cdn. Book $ 1 4.95 US, $ 1 7.95 Cdn. 
Book & Disk Combo Just $ 1 9.95 US, $24.95 Cdnl 
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The Edge Connection 



Societies, shows and disk drive voodoo 



by Joel Rubin 

The Toronto pet Users' Group (5333 Yonge St., Box 1 16, Wil- 
lowdale, Ontario, Canada, M2M 6M2, telephone +1 416 733 
2933, 1200-1700 Eastern Time), which stretches back to the 
time when Jack Tramiel was making watches, calculators, and 
the brand new pet 2001, seems to be gradually coming back 
after a moribund period. They are getting out newsletters, 
albeit a few months after the date on them, and the one office 
worker (formerly three) is working on filling disk orders, and, 
one of these days, they may even get out renewal notices, 

JAMECO Electronics (1355 Shoreway Rd., Belmont, Califor- 
nia, USA 94002, telephone +1 415 592 8097) is closing out 
iCs, including the Commodore custom chips which they were 
carrying. The chips that they still have are reduced in price, 
but some are already sold out. 

The March, 1988 issue of the newsletter of the Commodore 
Owners Workshop (c/o Home Computing Center, Tanforan 
Park, San Bruno, CA), a local users' group just south of San 
Francisco, warns that DatePs MIDI interface, while it may 
work with many European programs, will not work with the 
American programs written to the Passport standard. Con- 
versely, it is presumably the case that those who buy a Pass- 
port or Passport-compatible interface will not be able to run 
European software on it. God must have loved standards 
because He made so many of them. 

Anti-rental law in the States? 

According to a blurb in the 24 April Christian Science Moni- 
tor, Senator Orin Hatch (Republican, Utah) has introduced 
legislation to prohibit firms from renting or loaning software. 
The law is based on the Record Rental Act of 1985, which was 
passed when phonograph record producers complained that 
stores which rented records were, in fact, encouraging illegal 
copying and thus costing them money. (One can still borrow 
recordings from public libraries in the U.S.A., however.) 

On the other hand, the loaning of video cassettes is a very big 
business, with the full co-operation of the recording industry, 
and many of the video stores also rent Nintendo cartridges 
which are, technically, software - although cartridges are usually 
more expensive to pirate than to buy. The Senator did accept an 



amendment which would exempt libraries at non-profit organi- 
zations - for example, a computer lab at a university. 

CLONEDEX 

The Fourteenth West Coast Computer Faire was held the 
weekend of March 17, back at its old home at Brooks Hall and 
the Civic Auditorium, near San Francisco City Hall, instead of 
the more impersonal and newer Moscone Center where it had 
been held the past few years. There was a point to this - the 
theme of the show was "Legends of the West", and the Faire 
was attempting to regain its glory years, back when the Apple 
I was sold by its creators from one of the mini-booths or when 
Adam Osborne introduced the first luggable. 

Lee Felsenstein, the designer of the Processor Technology Sol 
and of the Osborne I, held a meeting of the long defunct Home 
Brew Computer Club; many of the Silicon Valley giants grew 
out of their meetings at Stanford. This was, for the most part, 
an excursion into nostalgia, and 'where are they now'. Jim 
Warren, the founder of the Computer Faire, and of Infoworld, 
had a seminar on the future. I hope that Jim's visions are more 
valid than the view one got from the present, which seems to 
be full of 80x86 clones. 

Whereas Jim used to patrol the Faire on roller skates, the head 
of the company which now owns the Faire (The Interface 
Group of COMDEX fame, and MACDEX infame) was busy buy- 
ing the Sands Hotel in Las Vegas. A seminar on older comput- 
ers, which I thought might be interesting for 8-bit Commodore 
owners, turned out to be mostly about marketing orphans. Bob 
Cook, of Sun Remarketing, told how he built a multi-million 
dollar business selling Apple ///s and Lisas with Mac compati- 
bility enhancements, mostly on Apple's money. 

The keynote address was given by Philippe Kahn, of Borland 
International. Mr. Kahn spent some time bad-mouthing Lotus 
and, in fact, the newspaper here reported that, a week or so later, 
he was caught putting copies of an anti- Lotus article beneath the 
doors of a hotel at a Palm Springs event. Of course, Lotus ver- 
sion 3.0 has been vapourware for so long that a lot of people 
have been bad-mouthing Lotus, but it's in bad taste for a com- 
petitor to do so, Mr. Kahn said he had heard that Lotus 1-2-3 
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version 3.0 had acquired the internal name "Titanic", and that 
he hoped his company would make the iceberg. 

Mr. Kahn did say one thing which Amiga programmers might 
want to keep in mind. He said that many programmers were 
becoming lazy because, faced with faster processors, and huge 
amounts of memory, they felt that they need not optimize for 
time or speed the way they would have had to on an older com- 
puter. He warned such programmers that multi-tasking would 
eat much of the speed they counted on; and that new graphics 
standards would eat much of the RAM; and that, if they aren't 
careful, their badly written programs will be swapped out to 
disk faster than one can say " 128K Mac" (my phrase). 

Of course, there wasn't much there for Commodore owners, or 
even Amiga owners. For 8-bit Commodores, there was a local 
store which sells both new and liquidated software, a couple of 
CP/M users 1 groups, Softdisk (Loadstar), Virgin/Mastertronic 
(which is going to take its Leisure Genius line back from Elec- 
tronics Arts in the U.S.), and Elcomp selling its old C64 books 
and software at a discount, and that was just about it. By the 
way. Softdisk wants to put out an Amiga version, and is look- 
ing for contributors. 

There was an Amiga store, a few games available, and a users* 
group. Poor Person Software (3721 Starr King Circle, Palo 
Alto, CA 94306, telephone +1 415 493 7234) had an Amiga 
program called Thinker, In essence. Thinker is a word proces- 
sor which allows you to click on a phrase and either reference 
some more text or a picture. They claim that it's Hypertext. I 
don't know enough about the definition of Hypertext to decide 
that. (Speaking of Hypertext, someone ought to port some- 
thing more or less like HyperCard to the Amiga. I'm not sure 
that it's quite as great as its boosters claim, but what it has 
done is to allow a lot of people whose expertise is outside the 
computer field to write programs reflecting their expertise on 
the Mac. HyperCard may have its deficiencies as a program- 
ming language, but many of the programs written in it proba- 
bly wouldn't have been written without it, and some of these 
are quite useful.) 

Humour, probably not intentional 

If you can manage, see if you can find a copy of Transactor's 
cousin magazine. Commodore Computing I titer national, for 
the month of April (Fools"). On page 7, there's an ad for the 
company well-known for importing American software and 
hardware into Britain. One of the products being advertised is 
a nybbler/parameter package. You are, of course, familiar with 
the disclaimers that follow such ads. "While we don't con- 
done piracy../', or 44 We strongly condemn piracy..." or some 
such blurb follows the claim that "Our package copies more 
copy-protected programs than any other/ Well, it appears that 
there were two versions of this ad, and someone accidently (or 
because of a Freudian slip, or because they had just gotten 
fired and wanted to get back at the company or for some other 
reason) mixed them - leading to the statement: "While we 
strongly condone piracy..." 



Reading 1581 'credit' messages 

Also, on the humour front, if you have a 1581 disk drive, try 
entering the following program at disk RAM address $0300, 
and executing it: 

error = $ff3f 

org $0300 

Ida #$79 
jmp error 

Then, read the error channel. You will get the author's credit 
message. If you substitute $7a for $79, you will get a dedica- 
tion to one of the authors' wives. Read the error channel using 
GET# rather than input#, especially with $7 A, since the error 
number gets printed as 7:, and that colon plays havoc with 

INPUT#. 

100 get#15,a$: print a$ : if st=0 goto 100 

Relative files and 96 

In recent Commodore disk drive manuals, you have been 
instructed to give the relative file positioning command, p, in 
the form: 

print#15, "p"chr$ (sa or 96) chr$ (reclo) 
chr$ (rechi) chr$ (of s) 

because in basic 7.0, record ends up sending the disk drive 
this message. (This is because Kernal OPEN sets the $60 bits in 
the secondary address, and RECORD looks up the secondary 
address from the file number.) 

I have looked at 1541, 1571, and 1581 disassemblies, and, 
with all of these drives, it doesn't matter. On the 1541 and 
1571 the p command begins at $e207. On the 1581, it is vec- 
tored through to $alal. All of these routines are the same, 
except for specific addresses. The beginning looks like this: 



jsr syntax 
Ida buf+1 

sta tempsa 
jsr get channel 



this is the secondary address 



If a secondary address is greater than 18, GETCHANNEL lops 
off the high nybble, so if you add 96 to the secondary address, 
not only won't the gods of relative files appreciate your sacri- 
fice, but the disk drive will just subtract it off and they won't 
even know about it, I use the word "gods" advisedly - 1 think 
the source file for Commodore DOS has just gotten too compli- 
cated, with too many patches between the olde 2040 and to- 
day. And, since no one really knows the whys and wherefores 
of some of the bugs, Commodore is just trying voodoo debug- 
ging. That sounds like programmers* hell - you've got this 
huge source file with zillions of patches, and half the program- 
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iners don't work at Commodore anymore, and you've got to 
try to maintain it! 

I don't really know what's going on with secondary addresses 
16, 17, and 18. Since most routines in the disk drive also lop 
off the high nybble of these three numbers, 16 and 17 yield the 
load/save channels of and I, respectively, and 18 usually is 
equivalent to 2. (Channel is not used for CI 28 fast loads,) 
So, you can't use 16 or 17 for relative files, and 18 may con- 
fuse the disk drive. 

Where you do have to k or' 96 to the secondary address is when 
you call SECOND and TKSA. Actually, SECOND 'or's $20 to the 
secondary address, and TKSA 4 or's $40, so you don't have to 
use S60 - just $40 for SECOND and $20 for TKSA. But, who 
wants to remember that? Doing both ($60) always works. I 
think that the problem is that, because of handshaking between 
the computer and the disk drive, the disk drive must be told to 
be both a talker and a listener whenever you send or receive 
data. 

A neat 1581 trick from West Chester 

It turns out that on the 1581, you can have the 1 28 boot sector 
wherever you want. Look at an official CI 28 1581 CP/M disk. 
(Not one with the Miklos G. format!) You'll notice that there's 
an autoboot user file on it ("copyright cbm 86"). When you 
boot, you send the string ui to the disk drive, and with the 
1581, ui forces a search for and (if found) execution of a & 
file called "copyright cbm 86". What is in this mysterious 
file? In the case of a 1581 CP/M disk, it diverts the sector trans- 
lation vector so that the first time the disk drive attempts a 
read, if it attempts to read track I /sector 0, it actually reads 
track 40/sector 5. After the first read, even if the disk drive 
was trying to read another sector, the translation vector is 
restored. The boot sector is to be found on track 28/sector 5; 
the real track 1 /sector is the first sector of the CP/M directory. 

*************t**+t********* 

* autoboot file on 1581 * 

* cp/m disks, disassembled* 

* with merlin's * 

* disassembler * 



temptr ldx $83 

Ida jobs r x 
anp #$80 
bne ;no 
ldy $99 
ldx hdrs+l,y 
bne ;no 
ldx hdrs,y 
dex 

bne :no 
ldx #$28 
stx hdrs,y 
ldxf$5 
stx hdrs+l,y 

:no Ida savead 
sta vtransts 
Ida savead+1 
sta vtransts+1 

hex 4 c 
savead ds 2 



; is it a read job? 



;is it on track 1? 



;is it on sector 0? 



;if so, track 40 



; sector 5 



; now, restore translate sector vector 



; jump 

; dummy address 



Further applications of this technique are left to the reader. Of 
course, this effort is, for the most part, wasted in CP/M, since 
very few 1581s are hooked up as device 8, and CP/M must be 
booted from device 8. In the U.S., at least, one can no longer 
buy a CI 28 - only a C128D, and the separate 1571, if not offi- 
cially dead, is almost impossible to find. The 1571 in the 
C128D has no dip switches and changing the device number 
of the built-in 1571 from device 8 involves the old pad-cutting 
technique. However, the pads are not as accessible as they 
were in 1541s. If you have a 128D and a 1581, however, you 
can try booting from the 1581 by shutting off your 1581, flip- 
ping the DIP switches to make it device 8, soft-setting the built- 
in 1571 to device 9 (open 1,8,15," u0>"+chr$(9)h turning on 
the 1581, and then booting. The 1581 must be set to device 8 
by DIP switches, because when it receives the ui command 
from boot, it will read the switches. 

Let's look at this real boot sector, track 40, sector 5. What it 
does is to fill $10(X)-$feff in bank with null's, and then read 
in the four logical sectors beginning at track 40, sector 6, to 
$e000. These are the same as the two 512-byte physical sec- 
tors on side 0, beginning at track 39, sector 4. It then jumps to 
the Z-80 code beginning at SeOOO. 



jobs 


= 2 


hdis 


= 5b 


vtransts 


= $lb8 


jchnbtrtn 


= $ff5a 



org $300 



Ida vtransts 
sta savead 

Ida vtransts+1 
sta savead+1 
Ida #<tenptr 
sta vtransts 
Ida #>tenptr 
sta vtransts+1 
Ida *$81 
sta $6d 
jmp jcbmbtrtn 



fillsp 


* $1000 


hdcOc 


= $dcOc 


hdcOd 


= $dcOd 


hddOO 


= $ddO0 


z80code 


= $e000 


nmucr 


= $ff00 


setbnx 


= $ff68 


ioinit 


= $ffS4 


setlfs 


= $ffba 


setnant 


= $ffbd 


open 


= $ffcO 


chkout 


= $ffc9 


clrchn 


= Sffcc 


z80on 


= $ffdO 


chrout 


= $ffd2 


z 80 wake 


= $f fee 




org $b00 




tit 'cbm' 




ds 6 
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sei 

jsr ioinit 

Ida t$3£ 
sta amicr 

********* *********** ****** ****** 

* fill $1000 - $fe£f w/ * 

******************************** 



Ida §>fillsp 

sta $21 

Ida Kfillsp 

sta $20 

ldx #$ef 

tay 

sta ($20), y 

iny 

bne :lup 

inc $21 

fa 

bne :lup 

sta ranucr 



:lup 



* open 15, 8, 15, name 



;bank 15 



Ida |$f 
ldx 18 
tay 

jsr setlfs 
Ida 10 
tax 

jsr setbnk 
Ida 14 
ldx ff<name 
Idy f>name 
jsr setnam 
jsr open 
Ida #$27 
ldx #4 
Idy i$e0 
jsr readsec 
Ida #$27 
ldx f5 
jsr readse2 
Ida t$c3 
sta zBQwake 
Ida f<z80code 
sta zBQwake+1 
Ida f>z80code 
sta z8Qwake+2 
Ida l$3e 
sta mtucr 
jmp z80on 



******************************** 

* read track ,a r sector .x * 

* side to ,y*256 



; these are physical sectors 
/logically 40/6,7 



; logically 
;40/8 r 9 

; z-80 jump 



* this routine reads physical 

* sectors, so 512 bytes 
******************************** 



jsr clrchn 

bit hdcOd 
jsr getbyt 
ldx §2 
Idy »0 
sty $20 
:lup3 jsr getbyt 
sta ($20),y 
iny 

bne :lup3 
inc $21 
dex 

bne ;lup3 
Ida hddOO 
and f$ef 
sta hddOO 
rts 

getbyt sei 

Ida hddOG 
eor #$10 
sta hddOO 
Ida #8 
:wait bit hdcOd 
beq :wait 
Ida hdcOc 
rts 

******************************** 

* this is a burst command * 

* sent to the disk drive * 

* in reverse, beginning with * 

* the first V in name * 
******************************** 



ecmd 


hex 01 


sect 


hex 00 


track 


hex 00 




hex 00 




tit '0' 



;read 512 bytes— 1 physical sector 



;read and— physical sector, side 



name 



txt 'u0'4c0G ; set the status byte 



The four (logical) sectors of Z-80 machine language then par- 
tially replace the boot ROM in booting CP/M. 

Save time on 1581 partitioning 

When you make a partition on a 1581, if you want to make a 
directory, you have to enter the partition and do a long format 
on it. Typically, you format the disk, make partitions, and for- 
mat the partitions - so you end up formatting the disk twice. 
Since the 1581 does not appear to use the disk or partition ID 
at the lowest level (the way the Commodore GCR drives do), 
you can save time by just doing a short format on the partition. 
But, there are complications. 



readsec 

readse2 



;lup2 



sty $21 
sta track 
stx sect 
ldxfSf 
jsr chkout 
Idy 16 

Ida ecmd-l,y 
jsr chrout 



bne :lup2 



If, within a partition, you try to write on a partition sector (e.g. 
doing a short format) you will get error 73 (dos mismatch) 
unless byte 2 of sector of the first track of the partition con- 
tains a d ($44). You can avoid this by two methods - either 
write from the root or parent partition, or use the job queue. If 
you now do a short format in the directory, you will get a 
directory, but it will look a bit strange because it will have 
chr$(0) + chr$(0) for its ID. So, you should now write the id 
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to bytes 22-23 of sector 0, and to bytes 4-5 of sectors 1 and 2. 
See the partition program below for details. 



BL 100 rem faster 1581 partition —avoids full formatting of partition 

OE 110 rem by joel m, robin 

FO 120 rem run from parent directory 

FO 130 input "device number" ;dn 

CI 140 openl r dn,15,"m-r"+chr$(252)+chr$(255) 

NE 150 gettl r a$:ifasc(a$)<>36thenprint"not a 1581" :run 

OJ 160 input "name of partition";na$ 

LN 170 input"first track"; ft 

PH 180 input "number of tracks (including 1 overhead) ";nt 

KJ 190 ns=40*nt:nh=int(ns/256):nl=ns-256*nh 

CN 200 print#l/7 ,r na$"/ , chr$(ft)chr$(0)chr$(nl)chr$(nh) r, r c" 

Dl 210 inputtl,e,e$,t,s:ifethenprinte;e$t;s:stop 

FG 220 open2 f dn,,2 r "IO ,t :print|l/ , b-p:2 r 2 n :printt2 r "d"; :rem dos version 

PN 230 print jf 1 , "u2 : 2" ; f t ; : input 11 , e f e$ , t , s : if ethenprinte; e$t ; s : stop 

MC 240 print "name of directory ";na$ 

FC 250 input ,M, ;nd$ 

HB 260 input "id of directory" ;id$ 

LO 270 iflen(id$)<>2goto260 

LA 280 print! 1 , " / '"na$ : inputll , e , e$ , t , s : ife<>2thenpr inte ; e$t ; s : stop 

AM 290 print! 1, "n0: "nd$; inputfl, e, e$,t , s : ifethenprinte;e$t;s : stop 

HO 300 close^opw^dn^/M" 

JO 310 fori=0to2 

PA 320 print! 1 , "ul : 2" ; ; ft ; i : inputll , e, e$ , t , s : if ethenprinte ; e$t ; s : stop 

NJ 330 print!l/'b-p:2"{-22*(i=0)) + (-4Mi<>0)):print|2,id$; 

BL 340 printll , "u2 : 2" ; f t ; i : inputll , e, e$ , t , s : if ethenprinte; e$t ; s ; stop 

CG 350 next 

OD 360 close2 

FO 370 print "done— in new directory!" 

Save time on 1571 single-sided formatting 



FG 250 printoTDisk id; U$id$chr$ (157) chr$ (157);: inputll ,id$: print 

IK 260 iflen(id$)<>2thenprintu$;;goto240 

JB 270 print|2,"u0"chr$(190) ,, mr , :bu=3:rem 1571 mode, working with buffer 3 

CK 280 print|2,>w M chrS(18)chr$(0)chr$(2)id^ 

OP 290 print|2 r "m-w H chr$(59)chr$(0)chr$(l)chr$(240):reiD format 8 $3b 

IP 300 print|2,"m-w M chr$(162)chr$(2)chr$(l)chr$(36):rem < 36 tracks 

HG 310 printl2/iVd»r$(178)chrS(l)chr$(l)chr$(0):r«i side 

OE 320 print|2, M m-w"chr$(bu)chr$(0)chr$(l)chrS(240):rein format 

MA 330 gosub470 

JI 340 if OlthenprintdS "Format error ! " ; goto510 

NG 350 printl2 f "i0":bu=4;rem iO reads 18/0 into buffer 4 

JO 360 input|2 , x r x$ , t r s : ifxthenprintx ;x$ ; t ; s ; stop 

MI 370 printl2,"m"W"chrS(2)chr5(7)chrS(2) ,, a M chr$(0);rem--right dos, single sided 

DB 380 tr=l 

LK 390 printt2,,"m-w"chr$(bu)chrS(0)chr$(l)chr$(144):rem write 18/0 v. o. err 73 

BN 400 gosub470;ifc>lthentr=trfl:iftr<=3goto390:rem try 3 times to write 

OA 410 iftr=4goto510 

AP 420 printt2/iO":print|2 r "nQ;"dn$ 

JF 430 input #2 , x, x$ , t , s : ifxthenprintx; x$t ; s : stop 

GM 440 opt^,8 1 2/i^printf2, H iil:2,0,U' t 

NG 450 input |2 , x, x$ , t , s : ifxthenprintx; xSt ; s : stop 

EH 460 printd$"It worked!": dos e2: end 

BC 470 print|2 ( r, i'r"chr$(bu)chr$(0):get|2 r a$:c=asc(a5) 

HC 480 ifc>=128goto470:rem not done 

GA 490 return 

Hfl 500 rem-convert job code to ds error 

BN 510 m$="mV+chr$(0)^hr$f3)+chr$(7)+chr$(169)+chr$(c)fchr$(162)+chrS(bu) 

HK 520 m$=m$+chr$(76)+chr$(185)+chr$(169) 

NB 530 print|2 r m$ 

FP 540 print|2,"m-e"chr$(0)chr$(3) 

AD 550 input|2 r x,x$ r t,,s:printx;x$;t;s;stop Q 



There are two ways to do single-sided formatting on the 1571. 
First, you can do double-sided formatting, and then tell the 
BAM that you really did a single-sided format. Cp/m does it this 
way. This isn't too slow, but it destroys flippies. Of course, the 
Aligner General has determined that flippies may be danger- 
ous to the health of your system, but there are some programs 
which come on flippies and are inconvenient to use in any oth- 
er format. 

On the other hand, you could do what GEOS does - you can go 
into 1541 mode before you format. This is less dangerous to 
flippies. However, 1541 formats are notoriously slow. Here is 
a third method: you use exactly that part of the 1571 format 
routine, in the disk ROM, which formats side O. 

GI lG0printchr$(l«7)chr${14); 

OE 110 print "Format a single -sided disk using the 1571 format routine 

OP 120 print" (c) 1989 Joel M. Rubin --connercial rights reserved 

DO 130 openl r 

OK 140 fori=lto30:e$=" "+e$+chr$ (157) ;next:d$=chr$(17)+chr$(17) 

HN 150 u$=chr$(145)+chr$(145)+chr$(145) 

OG 160 printd$" Insert disk to be formatted. "d$ 

OM 170 printd$ "Drive Number: " e$ " 8" chr$ ( 1 57 );: input |l,dn: print 

PI 180 if(dn<8)or(dn>ll)thenprintd$e$u$u$:gotol70 

m 190 open2,dn r 15/m-r"+chr$(lG3)+chr$(254) :rem irq at $fe67 should be jmp () 

NF 200 get|2 1 a$:ifa$<>chr$(108)thenclose2:printdS ,r NOT A C'1571! h u$u$:gotol70 

BL 210 printd$"Disk name: "1$ "new" chr$ (157) chr$ (157) chr$( 157);: inputll r dn$;print 

OJ 220 if(len(dn$)=0)or(len(dn$)>16)thenprintu$;:goto210 

SA 230 print: print "Insert disk to be formatted !" 

EA 240 x=rnd(-ti):id5=chrS(65+26*rnd(0))+chrS(65+26*rnd(0)) 
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Faster than a Speeding Cartridge 
More Powerful than a Turbo ROM 

It's Fast, It's Compatible, It's Complete, It's... 



JiffvDO 

Ultra-Fast Disk Operating System for the C44, SX-64 1 042B 



Speeds up alt disk operations. Load. Save, Formal, Scratch, Validate, access 
PRG, S£Q, REL, & U$R liles up to 15 times festert 

Uses no ports, memory, or extra cabling. The JiffyOOS ROMs upgrade your 
computer and drive (s) tmemalry for maximum speed and compatibility. 
Guaranteed 100% compatiWewrth all software and hardware. JinyOOS speeds 
up the loading and internal file-access operation of virtually all commercial software 
Built-in DOS Wedge plus 14 additional commands and convenience features 
including one-Key loaoVsave/scratch, directory menu and screen dump. 
Easy do-H-yourself installation. No electronics experience or special tools re- 
quired. Illustrated step-by-step instructions inducted, 



Available for C-64, 64C, SX-64, C-1204 C-1280 {JiffyDOS/128 speeds up both 64 
and 128 modes) and 1541, 1541C, 1541-1, 1571, 1561, FSD-1&2, MSD SD-1&2, 
Excel 2001, Enhancer 2000, Amtech, Swan, Indus* Blueehlpdisk drives. System 
includes ROMs for computer and 1 disk drive, stock/JiflyDOS switching system, 
itustrated installation instructions, User's Manual and Money-Back Guarantee. 



C-64 SX-64 systems $59.95; C-128 C-1280 systems $69.95; Add'l drive ROMs S29.95 

Please add $4 25 shipping handling per order plus %? S3 for AK, Hi, APO. FPO 
Canada & Puerto Rico StO OQ add! for other overseas orders MA residems ddd 5% 
sales tax VISA MC, COO Chech Money Order Allow 2 weeks for pe'sortdi checks. 

Call or uirnte lor more .riformation Dea'or. D.s:r-tJjior. & UG pricing available. 
Please specify computer and drive when ordering 

Creative Micro Designs, Inc. 

P.O. Bo * 739. Wi I bra ham, MA 01095 Phone. (413) 525-0023 

50 Industrial Dr., Bo* 646. E. Longmcadow. MA 01028 FAX: (413) 525-0147 
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The One Megabyte C64! 



Activities for a rainy afternoon: C512 



by Paul Bosacki 

Copyright © 1989 by Paul Bosacki 

In Volume 9, Issue 2, Paul showed us how to expand a C64 to 
256K internally and have GEOS recognize the extra RAM as a 
HAMdisk. At that time we stated that Paul was using a 1MB C64 - 
512K internal and 512K in an REU. As you now know, this project 
generated a lot of interest amongst the readership and the Com- 
modore community at large. The machine became the subject of 
various speculations and rumours. 

Well, the time has come to lay those rumours to rest. The first 
half of the 1MB C64 was covered last issue when Paul showed 
how to expand the 1764 to 512K. This is the second part. This 
article will show how a C64 can be expanded internally to 
512K. Et voila, the 1MB CM. 

As you might expect, this project is more complex than the two 
previous ones - in the software as well as the hardware. If 
you re not comfortable with a soldering iron in your hand you 
may want to have someone else do it. The usual disclaimers 
apply: you undertake this project at your own risk and good- 
bye the warranty. 

On the software side of things, GEOS V2,0 has made significant 
changes in the way that the operating system handles drives. 
Consequently, it was necessary for Paul to modify some of 
Berkeley Softworks' own code to enable the banked RAM used 
in the C512. Accordingly; 

Special Note: Portions of Driver 157 L src Copyright © 
1986-1989 by Berkeley Softworks. All rights reserved. 
Used with permission. Our thanks to Berkeley Softworks 
for their kind indulgence in this regard and to Matt Love- 
less at Berkeley for his support and assistance. 
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When I claimed a few months ago that an Amiga needed a 
meg of memory to really show, I never imagined that anyone 
would want a 512K 64. Nor did I expect the overwhelming 
response the article generated. So first, before I get into any- 
thing, I want to thank all the people who took the time to 
write. Considering the vagaries of postal offices, you all 
should have long ago received my reply. Yes, I answered each 



and every letter and that's why, in part, this update is so late in 
getting out to you. 

Also, I'd like to thank two people in particular: Richard Cur- 
cio and George Hug. Although this article might have 
appeared without their comments, suggestions and interest, 
writing it wouldn't have been as much fun. 

Now, into the meat 

As 1 pointed out in Care and Feeding of the C256, the limiting 
factor in an mpu's addressable memory space is its number of 
address lines. The C64\s 6510 has sixteen, allowing access to 
65,000 or so bytes. Adding two pseudo-address lines, as the 
last project demonstrated, bumped that to 256K. Four banks of 
64K were made available through a simple poke to $01. How- 
ever, a small amount of memory had to remain 'common' to 
each bank. Specifically, memory below $0400 was always 
available. This was necessary because the stack and OS vectors 
must (within limits) remain constant. Change them without 
proper setup and the machine crashes. 

The 512K project offers significant improvements over the 
previous design. In order to take our machines to 512K, it's 
necessary to add a third pseudo-address line. In the previous 
article, the two needed lines were found at the mpu I/O port. 
Needing three lines in this case, the MPU I/O port is no longer 
adequate. I/O is found elsewhere. 

Unfortunately, the 64 uses its resources to the fullest, and 
this necessitates some additional work. But the extra work 
yields some nice returns. Unlike the 256K version of this 
project, all options can now be controlled through software. 
Options like OK common memory to 16K and control over 
where the VIC chip finds its data. Well worth the extra 
effort! 

The modification 

An eight bit read/write latch is used in the 512K system to 
allow control over system memory configurations. This latch, 
called the Bank Control Register (BCR) for lack of a better 
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name, is accessable at $dd80. The astute among us will realize 
that this space usually contains phantom CIA2 images. But that 
problem is worked around by remapping the CIA's 256 bytes 
into four unique and separately selectable 64-byte sections. 
The first 64 bytes still belong to CIA2 keeping its base address 
valid. However, the third 64-byte block belongs to the BCR. 
Read from or write to $dd80 and the system memory configu- 
ration will either be returned or set. The second and the fourth 
64-byte sections are open for user expansion. 

The BCR is the most significant improvement over the prev- 
ious design. And the most powerful aspect Through a little bit 
twiddling, the memory configuration can be changed at will. 
What follows is the bit function layout of the BCR: 

bitO-2: The three pseudo-address lines needed to access the 
addtional memory. Bank on power-up or hard reset. 

bit 3: AEC enable. When this bit is set to (default power 
status), the Video display matrix is drawn from 
BankO. 

The following three bits affect the amount of common 
memory (CRAM) available to the system. 



bit 4 
bit 5 
bit 6 



Mask A10 

Mask All 
Mask A12 



($0400) 
($0800) 
& A13 ($1000) 



This takes a little explaining. When the 
MPU accesses a particular memory loca- 
tion, a combination of ones and zeros 
are placed on the address bus corre- 
sponding to the desired address. In the 
case of $03ff. At) through A9 would have 
ones while aid through A 15 would be 
zeros. Decoding CRAM simply becomes 
a matter of monitoring A 1 ) through A 15. If 
they should equal zero, then CRAM is 
being accessed and Bank is switched 
in. However, if any of those lines equal 
one then the bank selected is enabled. 



Part of the design philosophy 

behind the 512K hoard was that 

switches were to be done away 

with altogether and that all 

options should be controlled 

through software... 



banked memory appears until $0800; there a CRAM hole opens 
that continues to $0fff. Then banked memory reappears. So, 
unless you know what you're getting into, stick to the four 
CRAM configurations above. They are the most useful. 

Let's take a closer look. Clear all three bits and cram widens 
to include the bitmap at $2000. Not using the bitmap? Then 
how about a large (16K) area for machine language or BASIC 
programs that need to easily take advantage of an additional 
384K of memory (that's (64-16)*8). The next option is similar 
to the first except that cram narrows to $0fff. This excludes 
the bitmap, and the work space is smaller. But some interest- 
ing possibilities open here. For example, rapid cycling through 
up to 64 different bitmaps becomes a reality. Imagine, the REU 
globe demo done totally from within system ram! 

Option 3 narrows CRAM even further, leaving only the default 
screen matrix within CRAM. All banks could, therefore, draw 
their character screen matrix from the same place, And the fi- 
nal option banks out the screen matrix as well. All banks now 
share only OS vectors, the stack, and /page; in short, anything 
below $0400 is drawn from Bank 0. 

Then there's bit 7. By setting this bit, the cram option is disabled. 
In other words, there is no common memory. On a bank switch, 
the machine moves into a whole new domain; a place with it's 
own stack, OS vectors, zpage etc. This option is really exciting be- 
cause it allows us a kind of task switch- 
ing. With proper setup, a bank switch 
might drop us into a radically different 
machine. More on this later.... 



Arguably, the BCR is the most difficult 
aspect of this modification, both from 
the hardware and software side of 
things. When it comes time to build it, 
and later on, to program it. take your 
time looking over its specifications. It 
will save a lot of frustration later on. 



Each of the above bits masks the corresponding address line. 
Simply put, if the bit is set, then the address line cannot signal 
that a selected bank should enabled. CRAM is effectively 
widened. If all three bits are clear (the default power-on sta- 
tus), CRAM stretches to $3fff. However as each bit is set, CRAM 
space narrows: 



option 


bit4 


bit5 


bit 6 


CRAM 




alO 


all 


al2,13 




i) 











=$3fff 


ii) 








1 


=$0fff 


iii) 





1 


1 


=$07ff 


iv) 


1 


1 


1 


=$03ff 



Four other CRAM combinations are possible, but some open 
CRAM 4 holes'. For example, %101 has CRAM to $03 ff. Then 



Unlike the 256K version, the 512K modification has no 
switches. Two of the three switches have corresponding func- 
tions available through the bcr outlined above. The third 
switch was a 'master disable' switch necessary because some 
software and hardware is incompatible with the 256K modifi- 
cation. However, because the BCR is mapped into phantom I/O, 
and because every sane programmer reads from and writes to 
the BASK address of CIA2, the BCR should never be inadver- 
ently accessed. Consequently, the mod board cannot be 
disabled; nor, really, should such action be necessary. 

The 512K modification requires one step unnecessary to the 
256K version: the installation of an additional 256K. Rather than 
building an additional board with all its attendant difficulties, it is 
easier to 'piggy back' one bank of DRAM on top of the other. Then 
all that needs to be done is bend up pin 15 of each chip on the top 
bank and solder the rest to the corresponding pin below. A some- 
what simpler operation with little opportunity for mistakes. 
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Notes: 

This board allows expansion through to 512k. The jumper block CJB1) is not necessary. IF 512k is to 
be installed simply uiire the 2V output of the "LS153 directly to the "LS139. If 256k, pull the 
appropriate A input of the '1S139 to ground. 

On some c64's it may be necessary to replace the following chips as follows: 

i) 71LS03*s with 74F03's 

ti) 74LS153 with 74F153 
In banks where bit 1 is set, a "sparkling" effect mnu be visible in hires mode. The above chip 
changes solve this problem. 

See text for function outline of 8 bit latch. 



Circuit theory 

The first 512K board was a patch on the orginal 256K board. 
With a little (read: a lot) of wiring and rewiring and an addi- 
tional six ics, it was possible to access even more memory. 
Twelve chips is a lot of chips. So the board was redesigned 
and the chip count reduced to seven. Good and bad. Bad 
because if you built the 256K mod, it's necessary to build and 
install another board. Good because the fewer chips, the less 
likely mistakes are, and the easier it is to troubleshoot any 



problems that may arise along the way. If you did build the 
256K board, I offer this consolation: installing the dram is the 
hardest, touchiest part, and you don't have to do that again! 

Part of the design philosophy behind the 512K board was that 
switches were to be done away with altogether and that all 
options should be controlled through software. When the wish 
list of options was drawn up, an 8-bit latch was pretty much 
demanded. The problem became where to map it into system 
memory. For better or for worse, I chose C1A2. Because CIA2 
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occupies 256 bytes of memory starting a $ddOO, it was neces- 
sary to 'remap' I/O in that area. 

This was acomplished through the use of an 'LS139 Dual 2-to- 
4 Line Decoder. The CIA2 select signal is intercepted and 
used to enable one half of the *LS139« Address lines A6 and A7 
serve to select which of the four 64-byte sections is accessed. 
If both A6 and A7 are low, then the 'LS139 'selects' CIA2 allow- 
ing it to continue its exsistence at $dd00. If however, A6 is 
low and A7 high (indicating address $dd80h then a low is 
generated on pin 10 of the 'LSI 39. This signal, with a little 
additional qualifying, selects the two components that make 
up the bcr: an 'LS273 Octal 4 D Type' Flip-Flop is the write 
portion of the register, while an *LS373 Octal 3-State 4 D* 
Latch forms the read- 
That signal, *newio on the schematic, is then OR'd with 
gr/*w at one gate of an *LS32, and OR'd with c*R/w at anoth- 
er. On a read operation (GR/*W is high, G*R/w is low)), the 
output buffer of LS373 is enabled and dumps to the data bus. 
On a write, the XS273 is clocked and the contents of the data 
bus are latched into the chip and immediately present at its 
outputs. 

These outputs serve the variety of functions outlined in the 
BCR bit function map. Bits and 1, the low address bits, are 
presented to two inputs of one half of an 'LSI 53 Dual 4-Line to 
1-Line Data Selector/Multiplexor. Depending upon the state of 
CRAM (a signal whose generation we will discuss shortly), a 
2-bit code is then strobed out to pin 1 of the 41256s. 

Ignoring bit 2 for the moment, bit 3 is used to qualify the AEC 
signal from the vie chip. If bit 3 is high, the output of the XS32 
OR gate will be high regardless of the state of AEC. If low, the 
state of AEC is present at the output of the OR gate. The output 
of the OR gate is the old *vid signal and drives one of the 
select pins on the 'LSI 53. The 'LSI 53 is wired in such a manner 



that should *vid go low, a pair of lows are strobed out to the 
4 1 256's. This occurs on the rise and fall of *CAS which is used 
to drive the other select pin on the *LSI53. The end result is that 
when bit 3 is high, AEC cannot force a CRAM call, and the 
video matrix is drawn from the current bank. 

The next three bits serve to mask address lines and function 
much as bit 3 above. First, each of the address lines A10-A15 is 
presented to one input of an open-collector dual-input NAND 
gate (the two 'LS03*s of the schematic). [Each 'LS03 contains 
four such dual -input NAND gates, - PB] In the case of A15 and 
A14, the other input is pulled high, the immediate result being 
that the inverted state of A 14 and A 15 is present at the output. 
The other address lines are handled in a different fashion. To 
the other input of the gales shared with Alu and All, bits 4 and 
5 respectively are presented. If either bit is high, the corre- 
sponding output shows the inverted state of that address line. 
If either bit is low, a high is generated. Consequently, neither 
of these lines can affect a CRAM call. 

A12 and 13 share bit 6 and are affected as above. The output 
of the nand gates are grouped and pulled up with a 2.2K 
resistor. Should any output go low (indicating that the corre- 
sponding address line is high), the grouped output is pulled 
low enabling the LS153 to pass a 2-bit bank select code to the 
41256s. However, should all lines go high indicating a CRAM 
access, the grouped output goes high, forcing a default to Bank 
0. This output is the old *CRAM signal, now active high and 
renamed CRAM on the schematic. 

It is grouped with one other nand output. At this gate, bit 7 
and a high are decoded. Bit 7 is, as noted above, the CRAM 
disable function. If high, the grouped output is forced low, per- 
manently enabling the 'LSI 53 until that bit is cleared. 

All that's left now is to explain how the new address line is 
handled. The third address line does something wonderful. It 
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Ports Placement Layout 

C512 - Revision A 



Parts List 

1: 'HCT373 
1: 'HCT273 
1: "HCT139 

1: 1S32 

2: 1563 
1: 15153 



l 26 pin sckts 
2: 16 pin sckts 
3: 14 pin sckts 

2: 62a resistors 

1: y$si resistors 

2: 2.2kxi resistors 

7: 8.1 pF capacitors 



Misc: solder rinqed PC board, ribbon 
coble, connectors, 38 quaqe wirewrap^ 
22 quaqe wire. 
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allows us to select which 256K bank of DRAM is accessed. Bit 
2 is presented to the other half of the LSI53 dual 4-to-l multi- 
plexer. Depending again on the state of CRAM and *vid above, 
the other Y output of the 'LS153 generates either a high or low. 
A low is generated when either a CRAM call has been generat- 
ed or when bit 2 is low. A high is found only when bit 2 is 
high. This signal, LA18 on the schematic, is passed to the other 
half of the LSI 39. The LSI 39 is enabled whenever *CASRAM 
goes low. *CASRAM is the same signal used by the VIC to actu- 
ally select system dram over other system resources. Here we 
are using it to do the same thing; however, dependent on the 
state of bit 2, either *RAML or *ramh will go low selecting one 
of two banks of DRAM. La 18 does not act as an address line in 
the truest sense of the word, but rather helps to generate a 
select for one of two banks of dram. 

That's pretty much it. The key signal here is the CRAM signal. 
It plays the part of the master controller. When high, the LSI 53 
is disabled and default bank is switched in; when low, the 
contents of the three low bits in the BCR are free to set the 
bank accessed. *Vid when low, has a similar effect, but this is 
acheived in a slightly different fashion. 

Installation 

Before you attempt installation, I suggest you read and reread 
the section above. It's intended to familiarize you with the 
function of the board and how the various components relate. 
Knowing how the board works can only help you later on if 
there are any problems. 

Now, if you've already installed the 41256s, all you're really 
concerned with is the construction of the new mod board. If 
you have yet to install the dram, let's go over it briefly (for a 
more complete description, see Transactor, Volume 9, Issue 
2). First, disassemble your computer and locate the eight 4164 
drams on the system board. They're located in the lower left 
hand corner of the system board. If you can't find them, don't 
worry. Just keep reading. There's interesting news ahead. 

Once you've located the chips, turn the board over and care- 
fully note their position. Now, using a combination of desol- 
dering braid and a vacuum desolder, remove them. Another 
option is to cut the pins away from the chip, heat the pin and 
remove it with a small pair of pliers (Richard Curcio's RAMifi- 
cations from Volume 9, Issue 4 offers some valuable advice 
here). Make certain that each of the holes is as free of solder as 
possible. 

With all chips removed, install 16-pin sockets in their places. 
Once installed, use a fine guage wire to link pin 1 of each 
socket to the next. Connect the final one to a convenient 
ground (pin 16 of that socket, for example). Now, install the 
4 1 256- 15s. Although I've never had a problem here, these 
chips are static-sensitive, so be certain to ground yourself first. 
Mistakes with dram are expensive and, at this stage, difficult 
to uncover. Now reassemble as much of your computer as 
necessary to power up safely. But before you do, check the 



orientation of each DRAM. An upside down dram equals a 
dead DRAM. 

If everything checks out, connect your power supply and your 
monitor and turn your machine on. Most likely, you'll see the 
familiar power-up screen. Generally, the only other possiblities 
are a blank screen or one that changes randomly then 
4 freezes'. If you're confronted with either, don't panic. Turn 
your machine off, disconnect everything and examine your 
work. Check your soldering for bridges, try reseating the 
chips. Are they installed properly? Did a pin get bent beneath a 
chip when you installed it earlier? Check your pin I work. Is it 
properly grounded; is each socket in the chain linked? If you 
have a logic probe, power your machine back up and test each 
of the pins. Pins 1 and 16 should show low, while pin 8 shows 
high. All others should pulse between high and low. If a pin 
does not reflect the proper state, there is probably a problem 
with the soldering at that point. Resolder that pin of the socket 
and any other that might show a problem. Check everything 
and try again. And don't worry: You probably won't have to 
go through any of this. 

With the chips installed, move on to constructing the board. 
Once again, I used point-to-point soldering and all my sugges- 
tions from the previous article still apply. Check the parts lay- 
out diagram for the layout I used. Something I did this time 
round, was use 16-pin connectors for all interfacing. The parts 
layout shows the male connectors to the left hand side of the 
board. The result was a board that could be easily removed if 
troubleshooting indicated a problem. And there were problems 
- an incorrectly wired LS273 for one! As Richard Curcio once 
told me, half jokingly: "If it works right the first time, don't 
trust it!'* 

With the board finished, it's time to interface (I've always 
wanted to say that). There are two distinct places to go for the 
various signals required by the board: either the cartridge port 
or the mpu. I suggest the mpu only if it is socketed, and then I 
suggest you carefully remove it from its socket while doing 
this. Take a length of ribbon cable 16-conductor wide and 
make the following connections: A15-A1Q, A7, A6, D0-D7. Do 
this by heating the pin, gently pushing it to one side with 
the tip of your soldering iron and carefully inserting the 
conductor. 

Whether you use the cartridge port or the MPU socket, follow 
the appropriate diagram. [See page 50 - MO] Both diagrams 
show the layout from the solder side. Determining the final 
length of the ribbon cable is up to you but keep it short. Now, 
if you used connectors, attach the other end to the connector. 
Otherwise, solder A15-A10 to the appropriate inputs of the 2 
LS03 sockets, A6 and A7 go to pins 14 and 13 of the LS139 re- 
spectively. The data bus is tricky, and if you're going to make 
any mistakes it's here. Follow the schematic carefully and 
make the appropriate connections. 

With that finished (easier said than done), take another length 
of ribbon cable, this lime six-conductor wide. Now we hunt. 
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The first signal we want to locate is *CAS. Locate pin 1 of ei- 
ther 'LS257 (U13 or U25) on the system board (they're to the 
right of the dram you removed earlier Follow the trace away 
from the pin until you reach a tiny silver dot. This is a pass- 
through to the other side of the board. Heat the dot and install 
the first of six conductors. Remember this procedure because 
we're about to repeat it. 

Look to the drams, and locate pin 15 with a trace moving 
away from it (only one dram will show this). You've just 
found the *CASRAM signal generated by the PLA. Again follow 
the trace away from the chip until it comes to a resistor. On my 
board, this resistor was labelled R42. It may not be on your 
board, so follow the trace instead. Remove the resistor. Into 
the opposite solder pad, install the second conductor 

The next two signals are easier to locate. The first, AEC is 
available at a number of places. The first is pin 16 of the Vic 
chip (U19), the second is the mpu, pin 5. Both offer pass- 
through jumpers which can be found by following the trace. 
Or, if you wish, heat the pin and insert the third conductor The 
next signal, *C1A2, offers us a special case. Again, Til offer you 
two choices. Locate the LSI39 on the system board (U15), Pin 
11 is the *C1A2 select line. Cut the 
trace leading away from the pin, 
scrape away the green insulating mate- 
rial and carefully solder the fourth 
conductor here. On if C1A2 (U2) is in a 
socket, bend up pin 23 of CIA2. This is 
the chip select pin. Now, heat the 
socket's pin and insert the conductor. I 
did neither, I removed the TSI39 and 
installed a socket. When I reinstalled 
the LS139, I bent up pin 11 and sol- 
dered the conductor to pin 1 1 of the 



moved earlier. Into the other hole install one conductor. This 
will become the new *casram signal, labelled *raml on the 
schematic. 

Depending on how you dealt with the *CIA2 signal earlier, 
another conductor connects to the other side of the cut trace, or 
to either the bent up pin on the CIA or 'LSI 39. That's the worst 
of it. Two more lines go out to the system board, but we'll 
save them for a bit. 

Now, you can fix the board into place and install the chips 
ensuring correct orientation and placement. Connect the +5V 
source and ground to the mod board. Both are availabe at the 
cassette port. Again, reassemble as much of your computer as 
necessary and power up. With any luck, you're staring at the 
power-up screen! If not, let's go over the possiblities. Check 
the interface wiring. Are we getting the right signals up to the 
mod board, is there any sloppy soldering? Using a voltmeter 
or a logic probe check for the following conditions: pulses on 
all data and address lines. Fixed highs indicate a crashed bus 
and the problem is probably in the interface wiring. Pulses on 
*Cas, *casram, *raml. Fixed highs or lows are a problem. 
Check all associated wiring. The same holds true for AEC and 

GR/W. ClA2 will show high; otherwise, 
there's a problem either in the inter- 
face wiring or the mod board itself. 



If you choose to install the 
second bank of RAM, you will 
need a stronger power supply 

than the one that came 
originally with your C64! ... 



One trick that might help you locate a 
problem is turning off your computer, 
pulling a chip from the mod board and 
powering back up. If you get a power- 
on message, then you just narrowed 
your field of search. The only chips 
that you can't do this with are the 
LS139 and XS153. Pull either of these 



socket. Any of the above will work; 1 leave the method to you. chips and you will not get the power-on message. 



Next locate pin 8 of the 21 14 Colour ram (U6). The fifth con- 
ductor attaches there. And lastly, pin 40 of the MPU allows us 
easy access to the *RES signal. Solder the last conductor to this 
pin. 

Now on the mod board, make the following connections: 



• CAS to pin 14 of the 

• CASRAM to pin 1 of the 
AEC to pin 10 of the 
*CIA2 to pin 15 of the 
GR/W to pin 2 of the 

to pin 9 of the 

•RES to pin 1 of the 



LS153 socket 
LS139 socket 
LS32 socket 
LS139 socket 
LS32 socket and 
LS03 socket (U4) 
LS273 socket 



Again, if you used connectors, you've had it somewhat easier. 
Just install the connector to the other end of the cable. 

The above are the required signals from the system board. 
There are four signals that go the other way. Turning our atten- 
tion again to the system board, go back to the resistor we re- 



However, if you've been careful and meticulous with this, 
you were confronted with the power-on message. Great! 
Now; turn off your computer and install the second bank of 
ram. However, if you choose to do so, you will need a 
stronger power supply than the one that came originally 
with your €64! A 128 power supply or the one that comes 
with the 1764 will do just fine. But you will need a stronger 
power supply. Things might work fine for a while, but 
you're courting disaster. 

To install the second bank of dram, carefully bend up pin 15 
of each chip. Then piggy back the second bank atop the first 
and solder the upper pin to the lower. Again using a fine guage 
wire, link pin 15 of each chip on the upper bank and run the 
conductor out to pin 5 of the LSI 39. Now, disconnect pin 1 of 
the 41256s from the convenient ground and run it out to pin 7 
of the LS153. Connect the keyboard and again power your ma- 
chine back up. The power-on message should greet you. Now 
type this: 

poke 56704, 124 <cr> 
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The screen should fill with garbage. If any of the garbage 
characters are randomly changing, then one or more of the 
drams on the top bank is not connected properly. Locate the 
problem and try again until the problem is solved. 

If you choose not to install the additional bank of memory at 
this time, that's fine, just connect the keyboard and power-up 
as above. Now, instead type: 

poke56704,121 

As above, your screen should fill with garbage. You won't 
have the random charcters problem though. If nothing hap- 
pened, however, there is a problem. Something is wrong in the 
new I/O decoding, or the cram generation ciruitry. Try PEEK- 
ing the above location. If you get 121 or 127 for the 512K 
machines, then your problem's with CRAM generation. If you 
get a 0, then check out the write half of the BCR. A value that 
changes with each PEEK, indicates a problem with both halves 
of the BCR. Check the wiring carefully and try again. 



With that done, it's over. 
Your machine now contains 
512K of user installed banked 
memory. Give yourself a pat 
on the back. What you've 
done is just short of amazing. 
Congratulations! Now, re- 
assemble your computer. Fair 
warning, if you installed the 
extra bank of memory, the 
top rf shield will no longer 
fit. Don't bother with it. It's 
not a problem. 
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in) *ClA2: use the cut trace method from above. Cut the trace 
off pin 23, The trace opposite the CIA goes to the LSI 39. 

iv) Some chip designations have changed. The 6510 is now 
an 8500 and in generally socketed. The Sid and vie both 
have new 85 xx prefixes. The VIC is the larger of the two. 
The pin layouts have not changed, however, just the desig- 
nations. 

All the rest of the signals are available as indicated in the 
above section and don't present a problem. 

Because the DRAM used in the E board re vi sons are such dif- 
ferent beasts from the 4164, the mod board, as presented, is 
incompatible. This leaves us with two options. The first of 
course, is to modify the board so that it will work. But atten- 
dant with this strategy is laying in 14 additional 41464 drams. 
The second strategy involves forsaking the 41464's altogether, 
and installing 41256's. Using this strategy, the mod board does 
not have to redesigned, although 16 41256's must be 'laid in'. 



Of the two strategies, the sec- 
ond makes the most sense. 
The 41464 DRAM was initial- 
ly designed for systems that 
would be using less than 
25 6 K of ram. In that case, 
their use becomes more eco- 
nomical. When 256K is 
reached, however, it makes 
more sense to go with the 
41256, and that's what we'll 
do here. 
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Modifyng the 4 E Board* 

If you opened your computer and had trouble finding the the 
eight dram chips, there might be a good reason for this: you're 
the proud of owner of Commodore's latest line of revisions for 
the C64. The *E board' has two 41464 dram's (also labelled 
LH2464) rather than eight 4164's. As well, the board layout itself 
is significantly different from earlier boards. There are two dif- 
ferent E revisions that I'm aware of. The first maintains the old 
layout and logic except for the 41464s. The second one is radi- 
cally different, with one large chip handling all the select logic 
and timing. Gone are the PLA and the LS139 decoder and LS257 
multiplexers. But it is not difficult and certainly not impossible 
to modify either of these revisions to 5 1 2K. 

All that is mentioned in the above section still applies with the 
following changes: 

i) *Cas is available at pin 19 of the vie chip. 

ii) tCASRAM: Use the same technique as above, follow' the 
trace back from the DRAM, but instead of pin 15, follow pin 
16 to the resistor. 



The method is actually fairly 
straightfoward, but it requires 
a lot of additional work on your part. First, remove the 41464s 
using the techniques outlined earlier and install 18-pin sockets 
in their place. Now, install eight 16-pin sockets on a small 
board. Take a look at the attendant pin layout for the 41256- 
15. For each of the eight sockets, link together each address 
line to the next in the chain. Do the same for *CAS, *RAS, *W, 
pin 8 and pin 16. 41256s have two data lines, a data in (DI) and 
data out (DO). For each socket, link these two pins together 
(pins 2 and 14), 

Now, direct your attention to the pin layout for the 41464. 
Ignoring pin 1 (*G) and pin 18 (GRD) altogether, each pin cor- 
responds to another on the 4 1 256s. The data pins offer a spe- 
cial case. Each 41464 has four data pins. With two chips, that 
gives us eight data lines. Each data line goes to one 41256. 

The new r DRAM board is interfaced to the system using two 
16-pin dual-in-line connectors plugged into the sockets 
installed on the system board earlier. Plug the connector into 
the lower 16 holes. You can find this item at Radio Shack. It's 
made up of two connectors joined by an 18-inch stretch of rib- 
bon cable. Cut the cable in half, each piece consisting of a 
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connector and nine inches of cable. At the other end, solder the 
corresponding line from the 41464 sockets to the 41256s. Do 
this with one of the pieces. With the other, it is only necessary 
to connect the data lines. Now make a suitable ground connec- 
tion between the system board and the dram board. 

With the signals out to the board, install eight 41256s, and 
ground pin 1 of the 41256s again paying attention to the sug- 
gestions above. Power up your machine and the usual power- 
on message should appear. If it doesn't, check your wiring, 
and chip orientation. Check with logic probe or voltmeter that 
each pin shows a pulse condition (except for pin 8, high, and 
pin 16, low). If you find a pin that isn't offering the proper 
condition, check the pin out diagram and that'll give you an 
idea as to the nature of the problem. Follow the above instruc- 
tions if you intend to install a second bank of dram. 

Once you've have the dram installed and operating properly, 
proceed as above. Pay special attention to those areas where 
signal locations differ. There are two additional notes in this 
area. The first is that output Yl from the 'LS153 goes to pin 1 of 
the 41256s on the new ram board. The second: *raml and 
*ramh go to pin 15 of bank 1 and pin 15 of bank 2 respec- 
tively. And that, as they say, ladies and gentlemen, is that. 



(wetting aquainted 



Saying that your C64 is a radically dif- 
ferent beast would be a gross under- 
statement. The Bank Control Register 
up at $dd80 gives you access to total 
control over how r your system's 
memory is configured. Study the 

above tables, and the resultant config- 

urations. Some of the results might be 

suprising - even disconcerting - if you don't understand the 
implications of a particular configuration. And, although there 
are 256 possible configurations, not every one of them useful. 
However, none of them are tragic. 

But to get you started, here are some values to try and the 
resultant configuration. Just poke the value to $dd80 (56704), 
when you press Return the new configuration will be in effect. 

i) 0-7: These are the base values. Each corresponds directly 
to one of the eight banks of memory. In each case memory 
above $3fff is replaced with the select bank. 

ii) 120-127: These values are interesting in that CRAM has 
been set to its lowest amount. As well, screen data is drawn 
from the current bank. This allows eight separate work 
spaces for BASIC or machine language programs. However 
since all OS vectors, the stack and /page are shared, be care- 
ful of programs that modify those areas - especially the inter- 
rupt vector. On a bank switch, your machine is sure to crash. 

iii) 248-255:These values disable the CRAM option. Poking 
one of these values without proper set up will cause a crash. 



To make certain our RAM disk 

acted like a RAM disk, 
Berkeley s RAM disk driver was 

unassembled and then rebuilt... 



Before poking one of these values, it is necessary to set up 
the bank's zpage, stack and OS vectors. Key in the program 
task switch to see this option in operation. Call it with 
poke2,ft:sys828 where b is the bank you want initialized. 

I encourage you to become familiar with the operation of the 
bcr. Poke away! The results you get may be strange (even 
confusing) but, I assure you, yours is a 'few of a kind' 
machine. Have fun! 

Of RAMdisks and GEOS 

One of the nice things about things about the 256K project 
was that it allowed the additional memory to be configured 
as a RAMdisk under GEOS. For those of us lacking REU's, 
that do-it-yourself RAM expansion project offered an alter- 
native route to a souped-up geos. As so many sources have 
stated, an REU is an absolute necessity for the serious GEOS 
user. In fact, REU routines are now an integral part of that 
operating system. Where it was once possible to fool GEOS 
without consquence that an REU was present, it now seems 
(at least at this point) impossible. What exactly does this 
mean? Well, first the good news: The program that follows 
allows the configuration of a 256K or 512K RAMdisk under 

GEOS 2.0 and the co-existence of an 
REU. Now the bad news: you must 
have an REU (either a 1764 or 1750) 
for it to work. 



Some background. When you boot 
GEOS, it searches for any programs of 
the auto-exec file type. Configure is 
one of these. Configure, as you know, 

searches out, and initializes the drives 

on your system. If you have an REU, 
the disk drivers are stashed in the REU. When you switch 
drives, the driver is fetched down from the REU and the other 
drive is accessed. If you don't have a REU, there are two possi- 
bilities. If your drives are the same type (ie., two 1541s), you 
don't have a problem. If they are different, you must have a 
copy of Configure on the work drive. The reason for this being 
that the DeskTop will load the appropriate driver and get 
things going. 

This seemed to be a glimmer of hope. It seemed possible to 
splice a new driver into Configure. The idea was this: your 
system consists of a 1541 and 1571. Great, we'll overwrite the 
1581 driver with the new r one and then configure a 1581 as 
part of the system. Now, when we open the RAMdisk, the 
DeskTop will think it's a 1581, fetch our driver and we'll be in 
business. No way! Unfortunately, the DeskTop is fairly picky 
about drivers and the number of tracks and sectors a disk 
should have. As well, it doesn't always use the standard rou- 
tines for fetching its information about a particular disk or 
driver. The DeskTop is smart! It knows a 1581 has its direc- 
tory at Track 40, Sector and if it isn't found there, the Desk- 
Top tells you this with an error. The bottom line was: the 
scheme described above didn't work. 
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But with an REU on the system, we've a different situation 
altogether All we need do is make certain that the right driver 
is in the REU and that our RAMdisk conforms to the expected 
format. In other words, all that was necessary was to make 
certain our RAMdisk acted like a RAMdisk. In order to accom- 
plish this, Berkeley's RAMdisk driver was unassembled and 
then rebuilt to support the banked RAM. 

The program that handles installation of the BRAMdisk is 
C5I2lnstaII. Like Configure, it is an auto-exec program. 
Because auto-exec programs are executed in the order they 
appear on your boot disk, C5l2Install must be placed after 
Configure. What happens is this: after Configure installs the 
drives on your system, control is returned to what I call the 
4 BootTop'. It then searches for other auto-execs. Finding 
C5121nstall the BootTop executes it. C512lnstali does very 
little error checking. It simply searches out an empty drive slot 
and, on finding one, installs itself (uploading the BRAMdriver 
to the REU). Depending on the amount of expansion DRAM, 
either a BRAM1571 or '41 is installed. It then exits. 

Now you're asking: what use is it. After all, you already have 
an REU. Imagine this: two shadowed 1541s (if you've a 512K 
REU and two 1541s) and a 1571 BRAMdisk. Now that's a fast, 
powerful configuration. 

And if you don't have an REU? Well, Vm still working on the 
problem and you've got a little incentive too. Maybe between 
the few of us, we can figure it out. 

How to get there from here 

I received many letters after Care and Feeding of the C256 
appeared in Transactor, Volume 9, Issue 2. In letter after letter 
I had the unique pleasure of reading how people had pushed 
their C64s into domains that would have been impossible for 
us to imagine just a few years ago. 

Throughout writing this article, a phrase from an old movie 
has been running through my head. I've been looking for a 
way to work it in. When I think again of what people are doing 
to and with their 64s, the phrase becomes suddenly appropri- 
ate: Something wonderful is about to happen! 

Enjoy it! And thanks! 

Listing l:C512Inst. hdr 

« ************** **** ******** ******** 

;* C512Inst.hdr * 




;* This is the header declaration * 

;* for C512Install. * 

.********************************** 

r 

. header 
.byte 3 
.byte 21 



.byte $80|USR 
.byte AUTO EXEC 
.byte VLIR" 

.word $0400 
.word $03ff 
.word $0400 

.byte "C512Install VI. 1", 0,0,0,0 
.byte "Paul J. Bosacki ",0 

.block 43 

.byte "Installs banked MM as RAMdisk. ",0 

.endh 

Listing 2: C512Insta.Il.src 

•t++ ************** **************** 

t 

InstallRAM 
■it******************************* 

.if Passl 

.include geosSym 
.include geosMac 

.endif 

BCR =$dd80 
DoBankRAMOp =$02a7 



psect 



Ida 

enp 
bne 



version 

#$20 

Quit 



;if not V2.0 then exit 



Ida ramExpSize 
beq Quit 



;if REU not present then exit 



LoadW rlO, C512Install .-get diskdriver 



2$ 



Ida 
sta 
jsr 
txa 
bne 

Idy 
Ida 
beq 
bud 
iny 
cpy 
bec 



§1 

whichDriver 

GetDriver 

Quit 

#8 

SB486. v 
1$ 
1$ 

110 
2$ 



; second VLIR record 



;exit on error 



; branch on empty drive slot or 

;RE0 drive 

; otherwise r continue search. 



i$ 



sty driveNum 

jsr InstallDriver 

txa 

bne Quit 

jsr StashD river 



Quit ; Ida C_curDrive 
jsr SetDevice 
jnp Enter DeskTop 

GetDriver: 

LoadW r6, fileNmBuf 
LoadB r7L, $0e 
LoadB r7H, 1 
jsr FindFTypes 
txa 
bne 1$ 



;save drive number 
;and install driver 



.restore configuration 

;and return control to BootTop 

,- locate filetype auto-exec 

:with permanent filename "C5 12 Ins tall" 
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LoadW rO r fileNmBuf 'open that file 
jsr OpenftecordFile 



Ida whichDriver 


;open second record 


jsr PointRecord 




LoadW r7, diskBuf 


;and load that record into 


LoadB r2L, $ff 


; diskBuf 


sta r2H 




jsr ReadRecord 




txa 




pha 




jsr CloseRecordFile 


;tidy up 


pla 




1$: rts 




StashDriver : 




LoadW rO, $B48e 


; update drive vars, in REU 


LoadW rl r §7900+$048e 


;so system can be RBOOTed 


LoadW r2, 4 




LoadB r3L f 




jsr StashRAM 




ldy driveNum 


; stash new disk driver to REO 


LoadW rO, diskBuf 




Ida REUHstash-8, y 




sta rlH 




Ida REULstash-8,y 




sta rlL 




LoadW r2, $0d80 




LoadB r3L, 




jsr StashRAM 




rts 




InstallDrive : 




php 




sei 




jsr MoveTransfer 




jsr FindRamSize 




txa 




bne 1$ 




jsr FormatDrive 




1$: pip 




rts 




MoveTransfer: 




LoadW rO r moveRoutine 


;move transfer routine to CFAM and 


LoadW rl, DoBankRAMOp 


■ GE05 free ram 


LoadW r2 r routineSize 


; because of its location, this is the 


jsr MoveData 


;only free ram under GEOS 


rts 





FindRamSize: 

MoveB CPU_DATA, tempA 

LoadW CP0~DATA, I0_IN ;map in 10 



ldx DEV NOT FOUND 




Ida HO 




sta size 




Ida BCR 


;if not bank 0, then 


bne 1$ 


j err or -don't install! 


Load! rO, $c006 


; source 


LoadW rl, buf 


; destination 


LoadW r2, $0009 


;t length 


LoadB r3L, #%01100100 


;bank 4 


LoadB r3H, 


;bank 


jsr DoBankRAMOp 


;do BankOp 



ldy frl 

ldx #r0 

Ida #9 

jsr CmpFString 

bne 2$ 

Ida #$40 

sta size 

bne 3$ 

2$: Ida #$80 

sta size 

3$: ldx t0 

1$: MoveB terapA, CP0_DATA 
rts 

FormatDrive; 

MoveB CPU_DATA, tempA 

LoadB CPUJ5ATA, #$35 

ldy driveNum 

Ida #$31 

sta $8486, v 

Ida 10 

sta $88b7,y 

Ida size 

bvs 1$ 

Ida #$80 

Sta Header+3 

sta $ 9 8b7 . y 

ora #2 

sta $8486, y 

Ida #$37 

sta driveModel 



LoadW rO, #headl571 
LoadW rl, $8800 
LoadW r2, r #$0100 
LoadB r3L, 
LoadB r3B r 1*01100101 
jsr DoBankRAMOp 

LoadW rO, fixl571 
LoadW rl, Header+$dd 
LoadW r2, 35 
jsr MoveData 

LoadW rQ, #Header 

LoadW rl, $8800 

LoadW r2, #$0100 

LoadB r3L, 

LoadB r3fi, #%01100010 

jsr DoBankRAMOp 

ldy #0 

tya 



; return no error 



; drive type=ram!541 



; update drive vars. to indicate 
;a ram5171 



;fix header title to reflect change 



;dump track $35, sector $00 header 



;bank 5 



1$: 



;dump track $18, sector $00 header 



;bank 2 



10$; 



sta 

dey 
bne 

Ida 
sta 



diskBlkBuf,y 



10$ 
#$ff 

diskBlkBuf+1 

LoadW rO, IdiskBlkBuf ;dump offside dir track to $19, $08 
LoadW rl, $9c00+$08Q0 
LoadW r2, #$0100 
LoadB r3L, 

LoadB r3H, #%01100010 ;bank 2 
jsr DoBankRAMOp 

LoadW r0 r #diskBlkBuf ;dump $18, $01 to expansion ram 

LoadW rl, $8900 

LoadW r2, #$0100 

LoadB r3L, 

LoadB r3H, #101100010 ;bank 2 

jsr DoBankRAMOp 
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MoveB 


tempA, CPOATA 




Ida 


10 




ldx 


to 




rts 






moveRoutine : 




PushB CPD DATA 




LoadB CPtf DATA, 10 IN 




Idy 


r2L 




ldx 


r3B 




IS: dey 






Ida 


r3L 




sta 


BCR 




Ida 


(rOL),y 




stx 


BCR 




sta 


(rlL),y 




tya 






bne 


1$ 




beq 


Done 




PushB CPU DATA 




ldy 


r2L 




2$: dey 






ldx 


#10 IN 




stx 


cpu'data 




Ida 


r3L~ 




sta 


BCR 




Ida 


#$30 




sta 


CPO DATA 




Ida 


(rOL),y 




stx 


CPU DATA 




ldx 


r3H~ 




stx 


BCR 




beq 


3$ 




ldx 


#$30 




stx 


CPU DATA 




3$: sta 


(rlL}.y 




tya 






bne 


2$ 




ldx 


#$35 




stx 


CP0JJATA 




Done: sta 


BCR 




PopB 


CPU_DATA 




rts 






IRQVEC: 






pla 






tay 






pla 






tax 






pla 






NMIVEC: 






rti 






ejnoveRoutine: 




routineSize = ejnoveRoutine -moveRoutine 


Reader : 






,byte $12, 


$01, $41, $00, $15, 


$ff, $ff, llf 




byte $15, 


$ff, $ff, $lf, $15, 


Iff, $ff, llf 




byte $15, 


$ff, |ff ( $lf, $15, 


Iff, Iff, $lf 




byte $15 , 


Iff, |ff f $lf, $15, 


Iff, Iff, $lf 




byte $15, 


Iff, Iff, $lf r $15, 


Iff, Iff, $lf 




byte $15 r 


Iff, $ff r llf, $15, 


Iff, Iff, $lf 




byte $15, 


$ff, Iff, $lf, $15, 


$ff, Iff, $lf 




byte $15, 


$ff, $ff, $lf, $15, 


$ff, $ff, llf 




byte $15, 


$ff, $ff, $lf, $15, 


Iff, Iff, llf 




byte $11, 


$fc, $ff, $07, $12, 


Iff, $fe, $07 




.byte $13, 


$ff, $ff, $07, $13, 


Iff, Iff. $07 




.byte $13, 


$ff, $ff, $07, $13, 


Iff, Iff, $07 




.byte $13, 


Iff, $ff, $07, $12, 


Iff, Iff, $03 




.byte 512 


Iff, Iff, $03, $12, 


Iff, Iff, $03 




.byte $12 


$£f, Iff, $03, $12, 


Iff, Iff, $03 



.byte $12, Iff, Iff, $03, $11, Iff, Iff, $01 
.byte $11, Iff, Iff, $01, 111, Iff, Iff, $01 
.byte $11, Iff, Iff, $01, $11, Iff, Iff, $01 



header Title: 
driveModel : 



fixl571: 

.byte $15, 
.byte $15, 
,byte $13, 
.byte $12, 
.byte $11, 
headl571 : 
.byte Iff, 
.byte Iff, 
.byte Iff, 

,byte $ff, 

.byte $ff, 

.byte $ff, 

.byte $ff, 

.byte |ff, 

.byte Iff, 

.block 152 



byte "BRaro 15" 

byte "4r 

byte 160,160,160,160,160 

byte 160,160,160,160 

byte "P^HO,"^ 

byte 160,160,160,160 

-byte 19,8 

.byte "GBOS format VI. 0" 

.block 256-188 



$15, $15, $15, |15, |15, |15, $15, $15 

$15, $15, $15, $15, $15, $15, $15, $00 

$13, $13, $13, $13, $13 

$12, $12, $12, $12, $12 

$11, 111, 111, $11 



Iff, llf, 

Iff, llf, 

Iff, llf. 

Iff, llf, 

Iff, llf, 

Iff, 107, 

Iff, 103, 

Iff, $03, 

Iff, $01, 



Iff, Iff, llf, 

Iff, Iff, llf, 

$ff, Iff, llf, 

Iff, Iff, Hf, 

$00, $00, $00, 

Iff, Iff, $07, 

Iff, Iff, $03, 

Iff, Iff, 103, 

Iff, Iff, 101, 



$ff, 


m, $if 


$ff, 


$£f, 


m, $u 


$ff, 


w 


iff, $if 


*ff, 


$ff 


$«, $" 


$ff, 


w 


$ff, $07 


$ff, 


$ff 


$ff, $07 


. $ff, 


w 


Iff, $03 


, $ff, 


$ff 


$ff, $01 


$ff, 



Iff, llf 

Iff, llf 

Iff, llf 

Iff, llf 

Iff, $07 

Iff, $07 

Iff, $03 

Iff, $01 



Iff, Iff, $01 



; internal variable space trails code 



C512Install: 


.byte "C512lMtall B ,NUll 


fileNmBuf; 


.block 16 


REDHstash: 


.byte $83,$90,$9e 


REULstash: 


byte |00,|80,|00 


driveflum; 


.byte 9 


whichDriver: 


.block 1 


size; 


.byte 


buf: 


.block 9 


tempA: 


.block 1 


C curDrive: 


.block 1 



spacer : 

diskBuf: 



.block 8 



-block 1 



Listing 3:C512InstallJnk 



************************************** 
* C512Install,lnk * 



* 
* 



* These are the link file directives * 

;* for C512Install & driverl571. * 
*************************************** 

.output C512 Install 
.header C512Inst.hdr.rel 



,vlir 
.psect 

.nod 1 



C512Install.rel 



.psect 19000 

driverI571.rel 
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Listing 4: Driver 157 Lsrc 
********************************** 

;* RamDisk Driver (geos) * 

.if Passl 
. noeqin 
.noglbl 

.include geosSym 
.include geosMac 
,eqin 
.glbl 
endif 



BCR =$dd80 ;thia is the Bank Control Reg, 

; Four banks of 64K are available. The register is laid out like 

bit 0; bank select 
; bit 1: bank select 

bit 2: bank select 
; bit 3: video access forced bank0=0 

bit 4: consider alQ=l 
; bit 5: consider all-1 

bit 6: consider al2 t 13=1 

bit 7: CRAM Inhibit 

C_PutDirHead: 
; Portions of the following code are Copyright (C) 1986-1989 by 
; Berkeley Softworks, All rights reserved. Used with permission, 
; Special thanks to Matt Loveless at Berkeley for his support. 

.psect 



C GetDirHead: jsr 


DirlGet 


jsr 


C GetBlock 


txa 




bne 


1$ 


ldy 


curDrive 


Ida 


$8203 


sta 


$86b7,y 


bpl 


1$ 


jar 


Dir2Get 


jsr 


C GetBlock 


Ida 


#506 


sta 


interleave 


rts 




1$: Ida 


#$08 


sta 


interleave 


rts 




C RdBlkDskBuf: LoadW r4,diskBlkBuf 


Laid out like this: 




C Get Block: jsr 


EnterTurbo 


txa 




bne 


1$ 


php 




sei 




jsr 


ReadBlock 


pip 




1$: rts 





fc 



[c 
[c 

[C 



OSJumpTable: 

.byte (C_ 
.byte 
.byte 

.byte [C 

.byte [C 
.byte 
.byte 
.byte 

.byte [C 

.byte [C 

.byte [C 

.byte (C 

.byte (C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

.byte [C 

byte [C 



InitForlO, 

boneWithIO, 
ExitTurbo, 

Exit Turbo, 

EnterTurbo, 

ChangeDskOev, 

NewDisk. 

ReadBlock, 

WriteBlock. 

VerWriteBlock, 

OpenDisk, 

GetBlock, 

PutBlock, 

GetDirHead, 

PutDirHeadr 

GetFreeDirBlock, 

CalcBlocksFree r 

FreeBlock, 

SetNextFree, 

FindBAMBit , 

NxtBlkAlloc, 

BlxAlioc, 

ChxDkGEOS, 

SetGEOSdisk, 



]C_InitForIO 

]C~DoneWithIO 

]C ExitTurbo 

] C_Exit Turbo 

] C_EnterTurbo 

]C ChangeDskDev 

]C~N«wDisk 

] C_ReadBlock 

]CJfriteBlock 

]C~VerWriteBlock 

]C_OpenDisk 

]C_GetBlock 

] (f PutBlock 

]C GetDirHead 

]C~PutDirHead 

]C_GetFreeDirBlock 

]C_CalcBlocksFree 

]C FreeBlock 

]C~SetNextFre* 

]C*FindBAMBit 

jCJxtfilkAlloc 

] C JlxAlloc 

)C ChxDkGEOS 

3C~SetGEOSDisk 



1$: 



php 
sei 

jsr 
jsr 
txa 
bne 
ldy 
Ida 
sta 
bpl 
jsr 
jsr 
pip 
rts 



DirlGet 
WriteBlock 

1$ 
curDrive 

curDirHead+3 
$88b7 r y 

1$ 

Dir2Get 

WriteBlock 



C WrBlkDskBuf : LoadW r4 r disxBlkBuf 

EnterTurbo 
1$ 



C PutBlock: 



1$: 
DirlGet: 



GetOffPgTS 
SetLink: 
DskBufRdBlk: 
DskBufWrBlk: 



MoveTransfer: 
diskType: 



jap C_GetlstDir Entry 

jap C GetNxtDirEntry 

jap C_GetOf fPgTS 

jap C_Setlink 

jap C~RdBlkDakBuf 

jap C~WrBlxDsxBuf 

nop 

nop 

rts 

nop 

nop 

rts 

j Bp CJU.1 ocat eBlock 
jap C_ReadLink 

jap C_MoveTransfer 
.byte $82, ,r V1.0'\NOLL 



Dir2Get : 



CheckTrack: 



]sr 
txa 
bne 
php 
sei 
jsr 
txa 
bne 
jsr 
pip 
rts 

Ida 
sta 

Ida 
sta 
sta 
Ida 
sta 
rts 

Ida 

sta 
Ida 
sta 
sta 
Ida 
sta 
rts 

Ida 
sta 
ldx 
Ida 
beq 



WriteBlock 

2$ 
VerWriteBlock 



#$12 

rlL 

#$00 

rlH 

r4L 

#$82 

r4H 



#$35 

rlL 

#$00 

rlH 

r4L 

#$89 

r4H 



#$00 



#$02 
rlL 

1$ 



crop 


#$24 


bcc 


2$ 


ldy 


curDrive 


Ida 


$88b7 r y 


bpl 


1$ 


Ida 


rlL 


f^mrt 


#$47 


bcs 


1$ 


2$ : sec 




rts 




1$: clc 




rts 




C OpenDisk: jsr 


NewDisk 


txa 




bne 


1$ 


jsr 


GetDirHead 


txa 




bne 


1$ 


LoadW r5, curDirHead 


jsr 


ChxDkGEOS 


LoadW r4, curDirHead+$90 


ldx 


IfOc 


jsr 


GetPtrCurDkNm 


ldx 


ML 


ldy 


#r5L 


Ida 


#$12 


jsr 


CopyFString 


ldx 


#$00 


1$: rts 




C_BlkAlloc: ldy 


#$01 


sty 


r3L 


dey 




sty 


r3H 


C NxtBlkAlloc: PushW r9 


PushW r3 


Ida 


#$00 


sta 


r3H 


Ida 


#$fe 


sta 


r3L 


ldx 


#r2L 


ldy 


#r3L 


jsr 


Ddiv 


Ida 


r8L 


beq 


1$ 


inc 


r2L 


bne 


1$ 


inc 


r2H 


1$: jsr 


SetCurDirHd 


jsr 


ZalcBlksFree 


pla 




sta 


r3L 


pla 




sta 


r3B 


ldx #$03 


Ida r2H 


crop 


r4H 


bne 2$ 


Ida r2L 


crop 


r4L 


2$ : beq 3$ 


bcs 4$ 


3$: Ida r6H 


sta r4H 


Ida 


c6L 


sta r4L 


Ida r2H 


sta 


c5H 


Ida r2L 


sta r5L 


7$: jsr 


SetNextFree 


txa 




bne 4$ 


ldy #$00 
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Ida r3L 


4$: 


jsr DskBufRdBlk 




iny 


sta (r4L},y 




ldy #$00 




sty rlOL 


iny 




LoadW r5, diskBlkBuf +2 




cpy #$12 


Ida r3H 








bcc 3$ 


sta (r4L) r y 


3$; 


rts 


7$: 


pla 


clc 








sta ill 


Ida #$02 


C_GetOf fPgTS : 


jsr GetDirHead 




pla 


adc r4L 




txa 




sta r2H 


sta r4L 




bne 1$ 




pla 


bcc 5$ 




LoadH r5, curDirHead 




sta r6L 


inc r4H 




jsr ChkDkGEOS 
bne 2$ 




pip 
rts 


5$: Ida r5L 




ldy #$ff 


Cttldafc 


PushW r6 


bne 6$ 




bne 3$ 


. 


ldy #$48 


dec r5H 








ldx #$04 




2$: 


MoveW curDirHead+$ab, rl 




Ida curDirHead, y 


6$: dec rSL 




ldy #0 




beq 1$ 


Ida rSL 








MoveW rlL,r3L 


ora r5H 


3$: 


ldx #0 




jsr Set Next Free 


bne 7$ 








MoveW r3L, diskBlkBuf 


ldy #$00 


1$: 


rts 




jsr DskBufWrBlk 


tya 








txa 


sta (r4L),y 


C_ChkDkGEOS : 


ldy #$ad 




bne 1$ 


iny 




ldx #$00 




MoveW r3L,rlL 


Ida $12 




Ida #$00 




isr ClearBlock 


bne B$ 
Ida #$£e 


2$: 


sta isGEOS 
Ida (r5L),y 

cmp format ID., x 


1$: 


PopW r6 

rts 


8$: clc 

adc #$01 




bne 1$ 
iny 


ClearBlock: 


Ida #$00 

tay 

sta diskBlkBuf, y 


sta (r4L),y 
ldx #$00 




inx 

cpx #$0b 


1$: 






bne 2$ 




iny 


4$: PopW r9 




Ida #$ff 




bne 1$ 

dey 


rts 




sta isGEOS 






1$: 


Ida isGEOS 




sty diskBlkBuf+1 


GetCurDirHd: LoadW r5 r curDirHead 




rts 




jmp DskBufWrBlk 


rts 






C Set Next Free 


: Ida r3H 




format ID: 


. byte "GEOS format VI . 0" , NULL 




clc 


C GetlstDirEntry: 








adc interleave 


Ida #$12 


C GetFreeDirBlk: 




sta rb'H 


sta rlL 


* ~™ 


php 




Ida r3L 


Ida #$01 




sei 




sta r6L 


Sta rlH 




Ida r6L 




cmp #$12 


jsr DskBufRdBlk 




pha 




beq 2$ 


LoadW r5, diskBlkBuf+2 




PushW r2 




cmp #$35 


Ida #$00 




ldx rlOL 




beq 2$ 


sta tempf 




inx 






rts 




stx r6L 
Ida #$12 


1$: 


Ida r6L 
cmp #$12 


C GetNxtDir Entry: 




sta rlL 




beq 4$ 


ldx #$00 




Ida #$01 




cmp #$35 


ldy #$00 




sta rlH 




beq 4$ 


clc 


1$: 


jsr DskBufRdBlk 






Ida #$20 


2$: 


txa 


2$: 


cmp #$24 


adc rSL 




bne 7$ 




bcc 3$ 


sta rSL 




dec r6L 




clc 


bcc 1$ 




beq 5$ 




adc #$b9 


inc r5H 


3$: 


Ida diskBlkBuf 




tax 


1$: Ida r5H 




bne 4$ 




Ida curDirHead, x 


cnp #$80 




jsr SetLink 




bne 5$ 


bne 2$ 
Ida rSL 




civ 
bvc 2$ 




beq 4$ 


cmp #$ff 


4$: 


sta rlL 


3$: 


asl a 






Ida diskBlkBuf+1 


_L i_» -L. U 

asl a 

tax 


2$: bcc 3$ 




sta rlH 




ldy J$ff 




civ 




Ida curDirHead, x 


Ida diskBlkBuf+1 




bvc 1$ 




beq 4$ 


sta rlfl 


5$: 


ldy #$02 




Ida diskBlkBuf 

sta rlL 


6$: 


ldx #$00 

Ida diskBlkBuf, y 


5$: 


Ida r6L 


bne 4$ 

i« r- 




beq 7$ 




jsr CheckSector 
Ida NumSectors.x 


Ida tempf 
bne 3$ 




tya 

clc 




sta r7L 


Ida #$ff 




adc #$20 




tay 


sta tenpf 




tay 






jsr GetOffPgTS 




bcc 6$ 


7$: 


jsr SetAllocBlock 


txa 




Ida #$01 




beq 6$ 


bne 3$ 




sta r6L 




inc r6H 


tya 




ldx #$04 




dey 


bne 3$ 




ldy rlOL 




bne 7$ 


%A 
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4$: 


bit $8203 




bpl 8$ 




Ida r6L 




cnp #$24 




bcs 9$ 




clc 




adc #$23 




sta r6L 




bne 10$ 


9$: 


sec 




sbc #$22 




sta r6L 




one 11$ 


8$: 


inc r€L 




Ida r6L 


11$: i 


cmp #$24 




bcs 12$ 


10$: s 


sec 




sbc r3l 




sta r6H 




asl a 




adc #$04 




adc interleave 




sta r6H 




bne 1$ 


6$: 


Ida r6L 




sta r3L 




Ida r6H 




sta r3H 




ldx #$00 




rts 


12$: : 


Idx #$03 




rts 


CheckSector : 


pha 




cnp #$24 




bcc 1$ 




sec 




sbc #$23 



1$: 
2$: 



3$: 



ldx #$00 

cmp SideAScVals,x 
bcc 3$ 

bne 2$ 

pla 

rts 



SideAScVals: .byte $12,$19,$lf,$24 
NumSectors: .byte $15, $13, $12, $11 



SetAllocBlock : 



1$: 



2$: 



Ida r6H 
cmp r7L 
bcc 2$ 
sec 

sbc r7L 
civ 
bvc 1$ 
sta r6H 



C AllocateBlock: 



jsr FindBAMBit 

beq 1$ 

Ida r6L 

anp #$24 

bcc 2$ 

Ida r8H 

eor #$ff 

and dir2Head,x 

sta dir2Head,x 

civ 

bvc 3$ 



2$: 


Ida r8fi 




eor #$ff 




and curDirHead r x 




sta curDirHead,x 


3$: 


ldx r7H 




dec curDirHead r x 




ldx #$00 




rts 


1$: 


ldx #$06 




rts 


C_FindBAMBit: 


Ida r6H 




and #$07 




tax 




Ida bitMask, x 




sta rSH 




Ida r6L 




cmp #$24 




bcc 1$ 




sec 




sbc #$24 




sta r7H 




Ida r6H 




lsr a 




lsr a 




lsr a 




clc 




adc r7fi 




asl r7B 




clc 




adc r7H 




tax 




Ida r6L 




clc 




adc #$b9 




sta r7H 




Ida dir2Head, x 




and r8fi 




rts 


1$: 


asl a 




asl a 




sta r7H 




Ida r6H 




lsr a 




lsr a 




lsr a 




sec 




adc r7H 




tax 




Ida curDirHeadrx 




and r8H 




rts 


bitMask: 


.byte $01, $02, $04, $08 




.byte $10, $20, $40, $80 


C_FreeBlock ; 


jsr FindBAMBit 




bne 1$ 




Ida r€L 




cmp #$24 




bcc 2$ 




Ida r8H 




eor dir2Head,x 




sta dirZHead.x 




civ 




bvc 3$ 


2$: 


Ida r8H 




eor curDirHeadrx 




sta curDirBead,x 


3$: 


ldx r7H 




inc curDirHead,x 




ldx #$00 




rts 


1$: 


ldx #$06 




rts 



C_CalcBlksFree:lda #$00 

sta r4L 
sta r4H 
ldy #$04 



2$: 



1$: 



4$; 



Ida (r5L),y 
clc 

adc r4L 
sta r4L 
bcc 1$ 
inc r4H 

tya 
clc 

adc #$04 
tay 

cpy #$48 
beq 1$ 
cpy #$90 
bne 2$ 
Ida #$02 
sta r3fl 
Ida #$98 
sta r3L 
bit $8203 
bpl 3$ 
ldy #$dd 

Ida (r5L),y 
clc 

adc r4L 
sta r4L 
bcc 4$ 
inc r4H 

iny 

bne 5$ 
LoadW r3, $0530 



3$: rts 

C_SetGEOSDisk: jsr GetDirHead 

txa 

bne out 

LoadW r5, curDirHead 
jsr CalcBlksFree 
ldx #$03 
Ida r4L 
ora r4H 
beq out 
Ida #$00 
sta rOL 
Ida #$13 
sta r3L 



3$: 



Ida #$00 

sta r3H 

jsr SetNextFree 

txa 

beq 2$ 

Ida rOL 

bne out 

Ida #$01 

sta r3L 

sta rOL 

bne 3$ 



2$: 



r3H 
rlH 
r3L 

rlL 
ClearBlock 



Ida 
sta 

Ida 
sta 

jsr 
txa 
bne out 

Mo veW rl L , curDi rHeadi $ ab 
ldy #$bc 
ldx #$0f 
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PutlDString: Ida fonnatID,i 


sta curDirHead,y 


dey 




dex 




bpl PutlDString 


jsr 1 


PutDirHead 


out; rta 




C_InitForIO: php 




pla 




sta i 


tempi 


sei 




Ida $02b0 


bne 1$ 


jsr 1 


foveTransfer 


1$: Ida 


$01 


sta 


temp3 


Ida 


#$36 


sta 


$01 


Ida 


$d01a 


sta 


temp2 


Ida 


$d030 


sta 


tempo 


Idy 


#$00 


sty 


$d030 


sty 


$d01a 


Ida 


i$7f 


sta 


$d019 


sta 


$dc0d 


sta 


$dd0d 


LoadW $0314, $02f6 


LoadW $0318, $02fb 


Ida 


#$3f 


sta 


$dd02 


Ida 


$d015 


sta 


temp4 


sty 


$d015 


sty 


$dd05 


iny 




sty 


$dd04 


Ida 


♦$81 


sta 


$ddOd 


Ida 


#$09 


sta 


$dd0e 


Idy 


#$2c 


2$: Ida $d012 


crop 


S8f 


beq2$ 


sta $8f 


dey 




bne 2$ 


rts 




C DoneWithIO: sei 




Ida 


tempG 


sta 


$d030 


Ida 1 


temp 4 


sta $d015 


Ida t$7f 


sta $dd0d 


Ida $dd0d 


Ida tenp2 


sta $d01a 


Ida temp3 


sta $01 


Ida tempi 


pha 




pip 




rts 





C EnterTurbo: 


Ida curDrive 

jsr SetDevice 
Idx #$00 
rts 


C_ExitTurbo : 


Ida #$08 

sta interleave 

rts 


C ChangeDskDev:sta curDrive 

sta $ba 
ldx #$00 
rti 


CNewDisk: 

CJteadBlock; 

1$: 


jsr EnterTurbo 

rts 

jsr CheckTrack 

bcc 1$ 

jsr Do Fetch 
Idy #$00 
rta 


CJteadLink: 


jsr CheckTrack 
bcc 1$ 
Idy #$91 
jsr LoadUnk 


1$: 


rts 


C WriteBlock: 


jsr CheckTrack 

bcc 1$ 

jsr Do_Stash 


1$: 


rts 


C_VerWriteBlock: 

jsr CheckTrack 
bcc 1$ 
ldx #$00 


1$: 


rts 


Do_Fetch; 


Idy #$91 
bne LoadPage 


Do Stash: 


Idy #$90 
bne LoadPage 



;** the code most heavily modified to support the banked ram begins here ** 



LoadLink: 



1$: 



Ida $02a7 ; quickie is transfer routine installed? 

bne 1$ ;if not, then do so, 

jsr MoveTransfer /this routine should be unnecessary, but 

;one never knows. 
PushW r2 

LoadW r2, $0002 ; fetch links only 
bne SavePs 



LoadPage ; 



Ida 
bne 
jsr 



$02a7 

1$ 
MoveTransfer 



;as above 



1$: 



SavePs : 



PushW r2 

LoadW r2, $0100 ; fetch page 



2$: 



PushW rO 




PushW 


rl 




PushW r3 




tya 






and 


#%00000001 


..mask out high bits 


pha 




;and save 


Ida 


rlL 




cmp 


#$24 


.track r*quest>35 


bcc 


2$ 


;if . cs then do some math to access 


see 




; correct page values 


sbc 


#$23 




tay 






dey 






Ida 


RamDiskTab,y 


;RAM page translation 


clc 






adc 


rIB 


: sector 
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4$: 

3$: 



5$: 



6$: 



US; 

12S 



13$: 
14$: 



RamDiskTab: 



rOH 



|%01110001 ;base value for BCR=bank l f CRAM set to $0400 

ill ;work out the bank 

3$ ; value based on 

123 ; sector requested 

4$ 



rlL 
#$24 

5$ 



sta 
txa 
ldx 
cpy 
bcc 
cpy 
bcc 
inx 
inx 

Ida 
UBP 

bcc 
inx 
inx 
inx 



stx r3L 

LoadB r3H, 
sta rOL 

MoveW r4L, rlL 

pla 
bne 6$ 

PushB r3H 
MoveW r0L r rlL 
MoveW r4L r rOL 
MoveB r3L, r3H 

PopB r3L 

Ida r3H 
beq 11$ 

Ida rlfi 
bne 12$ 



Ida 

and 
cup 

beq 



rOH 
»$f0 

#$d0 
13$ 



jsr $02a7 

bne 14$ 

jsr $02c4 

PopW r3 

PopW rl 

PopW rO 

PopW r2 

ldx #0 

Ida *0 
rts 



;if sector>35 then 
; increase bank value 
;by 3 the bard way. 



mvRoutine: 








PushB CPU DATA 




LoadB CPU DATA, 10 IN 




ldy 


r2L 




ldx 


r3H 


II: 


dey 






Ida 


r3L 




sta 


BCR 




Ida 


(rOL),y 




stx 


BCR 




sta 


(rlL),i 




tya 






bne 


1$ 



; source 
destination 

;set up for fetch 

;get back command value 
;on ,ne = fetch 

■stash,, then do flip 



determine whether page requested 

; lies under 10 block 

;if ,eq then do slow transfer, otherwise. 



;do fast transfer 



;do under 10 trans. 



; restore psreg/s 



beq Done 





PushB CPU DATA 




ldy 


r2L 


2$: 


dey 






ldx 


#10 IN 




stx 


CPU DATA 




Ida 


r3L 




sta 


BCR 




Ida 


W30 




sta 


CPU DATA 




Ida 


(rO«,y 




stx 


CPU DATA 




ldx 


r3H 




stx 


BCR 




beq 


3$ 




ldx 


#$30 




stx 


CPU DATA 


3$: 


sta 

tya 


(rlL),y 




bne 


2$ 




ldx 


#$35 




stx 


CPUJJATA 


Done: 


sta 


BCR 




PopB 


CPU DATA 




rts 




IRQVEC : 


pla 

tay 
pla 
tax 
pla 




NMIVEC: 


rti 




e mvRoutine: 







;and return no errors 



.byte $04, $la, $30, $46, $5c, $72, $88, $fe 

byte $b4, $ca, $e0, $04, $la, $30, $46, $5c 

.byte $72, $88, $9c, $b0, $c4, $d8, $ec, $04 

.byte $18, $2b, $3e, $51, $64, $77, $8a, $9c 

.byte $ae, $c0, $d2, $e4, $00 



routineSize = e mvRoutine-mvRoutine 



..■internal variable space trails code 



C MoveTransfer: 



PushW rO 

PushW rl 

PushW r2 

LoadW rO, mvRoutine 

LoadW rl r $02a7 

LoadW r2 r routineSize 

jsr MoveData 

LoadW $0314, $02f6 

LoadW $0318, $02fb 

PopW r2 

PopW rl 

PopW rO 

rts 



; IRQvector 
;NMI vector 



tempo : 


byte 


tempi : 


byte 


temp2: 


byte 


tenp3: 


byte 


temp4 : 


byte 


temp5: 


byte 


teaiqp6: 


byte 


tespT: 


byte 


temp8: 


byte 


temp9; 


byte 


tempa: 


byte 


tempb; 


byte 


tempc: 


byte 


terapd: 


byte 


tempe: 


byte 


tempf: 


byte 



.end 



□ 
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Identify, stash and fetch 



by Ian Adam 

Introduction 

Adding an external RAM cartridge to a Commodore 64 or 128 
can greatly increase its power and speed. For example, 
program overlays and disk files can be held in RAM, for near- 
instant access, A word processor or spreadsheet can now 
handle vastly larger documents or tables, rivalling those on 
any other personal computer. Another of my favourite uses is 
to prepare a number of graphics images, either high-resolution 
or low-res, and stash them in the RAM cartridge. When these 
are fetched rapidly, some pretty good animation can be created. 
Many other kinds of programs can use that extra capacity for a 
variety of different purposes, if only they know it's there. 

The speed of the RAM cartridges is truly amazing. The RAM 
Expansion Controller is a special-purpose Direct Memory 
Access chip; it has a very limited instruction set, and is opti- 
mized for just one purpose - moving data. As a result, the data 
transfer rate is one byte per clock cycle, or one million bytes 
per second. This is far higher than with any other method, 
even much higher than you could achieve with hand-crafted 
machine language (a maximum of 70,000 cycles per second). 
Compared to loading data from a 1541 disk drive... well, 
there's just no comparison. When programming animation 
with the cartridge, I find that it's actually necessary to intro- 
duce delay loops in order to keep the animation down to a rea- 
sonable speed! The RAM cartridge can load high -resolution 
images about twice as fast as the video chip can display them, 
and four times as fast as the human mind can perceive them. 

With all of these capabilities at hand, it follows that the thor- 
ough programmer will take the time to write programs in such 
a way that external ram is taken advantage of. After all, 
there's no sense in the user buying a cartridge, if programs for 
the computer don't make use of the facility. Besides, your pro- 
grams will look so much more impressive when they use all of 
the power at hand. 

Right away, though, you run into the little problem of finding 
out how much RAM, if any, you have to work with. The stan- 
dard Commodore operating system doesn't test for external 
RAM, and the cartridge itself doesn't go out of its way to tell 
you that it's present, so you have to devise a way to find out 



for yourself. What's more, while the cartridge does have a 
status byte to tell you how big it is, unfortunately two of the 
three available cartridges can have the same status byte! 

That's the bad news. The good news is that all three cartridges 
use the same ten instruction registers, so they can all be con- 
trolled with the same commands. Furthermore, they are all 
located at the same address in the I/O block, at $df00 to SdfOa, 
regardless of what computer they are installed in. Here are the 
cartridges Commodore has made available for the 64 and 128: 



Model 


Banks 


RAM 


Status Byte 


For 


Bank #S 


1764 


4 


256K 


xxxlxxxx 


C 64 


to 3 


1700 


2 


128K 


xxxOxxxx 


C 128 


and 1 


1750 


8 


512K 


xxxlxxxx 


C 128 


to 7 



Check the larger accompanying table for further details on the 
meaning of the various control registers. In theory at least, the 
status byte (at $df()0) should be a sufficient signature to identi- 
fy the cartridge uniquely, once you know which model of 
computer it's installed in. After all, there is no duplication of 
the byte within each computer model. The 64 is not supposed 
to use a 128-model cartridge, since its meager power supply is 
barely capable of powering the computer itself, let alone any 
ram expansion. The 1764 comes with an upgraded power sup- 
ply, and so would not be of interest to an owner of a 128. 

In the real world, however, you must remember that hardware 
could be combined in ways that your program might not have 
anticipated. For example, a Commodore 128 could be running 
a C64 program in 64 mode, and still have access to either of 
the 128-model expansion cartridges. You could also encounter 
a 64-model cartridge being operated in a 128. Thus, there is no 
guarantee that the cartridge will be the one you expect from its 
signature byte. 

What's more, there still remains the problem of sorting out 
whether a cartridge is present at all. A genuine status register 
can take on many different values at different times, as a 
glance at the table will illustrate. However, if there is no 
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cartridge present, a read of the address of the non-existent 
status register gives a random value, which could mimic the 
status byte of a cartridge. All in all, an interesting program- 
ming challenge. 

The Ramfinder program 

To the rescue rides the Ramfinder program. The challenge of 
detecting RAM isn't all that difficult to deal with, and any 
experienced programmer could tackle it reasonably well. 
However, I've always felt that the programmer should be freed 
to deal with important matters like making his or her program 
work properly, and not have to spend time and energy worry- 
ing about little details like what sort of hardware is attached. 

To help out with this, I prepared the Ramfinder program, 
which has several useful advantages. This compact program 
will run in either the 64 or the 128, with no preference for 
either. As a further advantage, it is fully relocatable to any 
available start address (SA), so it will be compatible with just 
about any program you may want to write. What's more, it has 
three handy entry points: 



sys sa 

sys sa+4 
sys sa+7 



identify RAM cartridge & report 
STASH to expansion RAM 
FETCH from expansion RAM 



All of this usefulness is packed into just over 100 bytes of 
machine language. 

Of the three entry points, the first entry is the key one, because 
it will check whether or not a ram cartridge is present. If none 
is found, it will return a value of zero. If it succeeds in finding 
external RAM, then the program will perform a couple of addi- 
tional tests to identify which cartridge is present. It will return a 
result of 2, 4, or 8, representing the number of banks of memory 
available. The result is stored in zero-page memory, where it can 
be retrieved with a simple Ida $fb, or a peek(251) from basic. 
The result is also held in the accumulator on departure. 

The second and third entry points will perform very simple 
STASH and FETCH operations. Because the 64 and 128 manage 
their memory in such different fashions, these operations will 
not deal with subtleties like data in hidden memory banks. 
However, they are ideal for my favourite task, pulling graphic 
screens in and out of memory. To use these operations, put the 
number of the external RAM bank that you want to use in $fb 
(from BASIC: poke 251, bank#. For example, if you have a 
four-bank cartridge, select a bank number of to 3). Load the 
microprocessor registers as follows: 



accumulator 
X register 
Y register 



high byte of expansion address 
high byte of computer address 
high byte of length of transfer 
(all low bytes will be set to zero) 



If you are working in machine language, this is very straight- 
forward. If you are working in BASIC 2,0 on the 64, just POKE 



these three values into memory locations 780 through 782, 
then sys sa+4. With basic 7.0 on the 128, the values can be 
transferred directly by the extended SYS command (as an 
example: sys sa+4,8,4,4 to stash a low-res screen in the car- 
tridge at $0800), but be sure you are in Bank 1 5 when you use 
the program. 

If you find you need a more comprehensive stash and fetch 
capability, see Dale Castello's wedge commands for the 64 in 
Transactor, Volume 8 Issue 2, page 38 or use the built-in com- 
mands in BASIC 7.0 on the 128. 

Starting Ramfinder 

How you use the Ramfinder program is at least partly depen- 
dent on what you want to do. If you are doing machine lan- 
guage programming and want to deal with the expansion 
cartridge issue painlessly, then type in the source code and add 
it to your library of useful routines. Again, note that the code is 
fully relocatable, so you should find it most accommodating in 
getting along with other routines. Its only requirement is for 
one byte of space in zero page, at $fb. A JSR to the start of the 
code will identify the expansion RAM available, and on return 
the accumulator will contain the number of 64K banks 
available. You can use the stash and fetch commands if 
suitable to your needs. 

For you non-ML programmers, a BASIC loader is also supplied. 
Type the program in, being especially careful with the DATA 
statements at the end. Be sure to save a copy of the program 
before running it. When you do run the program, it gives a 
brief description of itself, then asks for the address to load the 
machine language into. Enter the address of any suitable free 
RAM (in the 128, you must be in Bank 15, so the load address 
must be less than 16270 in order to stay in non-banked ram). 
If you are unsure, just press Return and the code will be loaded 
into the cassette buffer automatically. The program will then 
give further instructions for each of its routines. 

If you want to incorporate the routine into other BASIC pro- 
grams that you write, you have my blessings. Of course, you 
won't need to include all of the detailed instructions - just the 
DATA statements and their loader. 

How it works 

The only way to detect a RAM cartridge reliably is actually to 
command it to work, then find out whether it performed as 
expected. As I mentioned, the status byte should tell you about 
the cartridge, but unfortunately it cannot be relied upon, Read- 
ing this when a cartridge is not installed may yield a phantom 
random number, leading to the erroneous conclusion that extra 
ram is available. 

To get around this problem, the program puts a known byte in 
zero page (the seed value 1 in its storage location at $fb), then 
commands the cartridge to save the page in expansion RAM. 
The value in $fb is changed (to #$b5, a convenient alterna- 
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live), then the page is fetched back. By checking what value 
remains, the presence or absence of a cartridge can be de- 
duced. If none, then a value of zero is returned. 

With the knowledge that a RAM cartridge is present, the status 
byte can be read reliably. If bit 4 is clear, then the cartridge 
must be the 1700, and the task is finished. 



There are two beneficiaries of this process; one is the user, 
whose investment in an expansion cartridge is rewarded with 
programs that offer more power and speed. The other benefi- 
ciary is you, the programmer - your programs will be slicker 
and more popular when they take advantage of all the 
resources available to them. Ultimately, that reflects 
favourably on your ability as a programmer! 



Otherwise, there are still two possibilities, so one more test is 
required. This depends on the characteristic that the bank 
addresses 'wrap around'; that is to say, access to a bank 
beyond those in place will be decoded into the existing banks. 
To make use of this, remember that zero page has already been 
stashed in bank 0: this page will now be verified against bank 
4. In the 1764 (the 256K cartridge) bank 4 is read as bank 0, so 
the verify operation succeeds. In the 1750, bank 4 is distinct 
and different from bank 0, so the verify fails. Thus, the detec- 
tion is complete. 



Listing 1: ramfinder.bas 



Table of REU Registers 


REGISTER 


ADDRESS 


TYPE 


MEANING 




STATUS 


$DF00 


Read 
Only 


bits 0-3 
bit 4 

bit 5 

bit 6 

bit 7 


version 

'size' 

1 = verify error 

1 = complete 

interrupt pending 


COMMAND 


$DF01 


R/W 


bits 0, 1 
bit 4 
bit 5 
bit 7 


transfer type 

= 5FF0O trigger 

1 = reset parameters 
execute 


ADDRESS 


$DF02 
$DF03 


R/W 
R/W 


low byte, 
high byte 


computer address 


EXP ADDR 


$DF04 
$DF05 


R/W 
R/W 


low byte, 

high byte 


expansion RAM address 


BANK 


$DF06 


R/W 


RAM bank ff 


low bits only 


LENGTH 


$DFQ7 
$DF08 


R/W 
R/W 


low byte r 
high byte 


length of transfer 


IRQ MASK 


$DF09 


R/W 


bit 5 
bit 6 
bit 7 


IRQ on verify error 
IRQ on completion 

enable interrupts 


INCREMENT 


$DF0A 


R/W 


bit 

bit 1 


= increment RAM addrs 

1 = fix RAM address 

= increment host addrs 

1 = fix host address 





The benefits are yours 

How you use this program is up to you. It is most useful when 
combined with other programs, whether in BASIC or machine 
language. Ramfinder is compatible with both; its length and 
transportability make it easy to incorporate with other pro- 
grams of all types. [If you've ever plugged in your REU and 
hooted GEOS only to discover that the REU wasn't seated prop- 
erly and thus was not seen by the system, you II recognize an- 
other use for the program as published, - MO] 



PK 100 

PH 110 

PK 120 

GP 130 

GR 140 

CA 150 

GG 160 

JM 170 

OL 180 

II 190 

MD 200 

DK 210 

HL 220 

OE 230 

HK 240 

OG 250 

FE 260 

10 270 

Ml 280 

HP 290 

GJ 300 

KD 310 

EL 320 

CF 330 

CE 340 

JA 350 

Kl 360 

EI 370 

BP 380 

GF 390 

HI 400 

DN 410 

DF 420 

CD 430 

F6 440 

GD 450 

HP 460 

GC 470 

PF 480 

CC 490 

ND 500 

KB 510 

GM 520 

GI 530 

LN 540 

LL 550 

AA 560 

DK 570 

IL 580 

NK 590 

CF 600 

Bi 610 

3G 620 

KO 630 

AI 640 

OP 650 

FG 660 

DO 670 

CG 680 

GA 690 

NE 700 

ON 710 

BH 720 



print chr$(147):print"** ramfinder **" 
print: print "(c) ian adam" 
print "Vancouver be 1988 ,f 

print: print "this short program will identify an" 
print "external ram cartridge attached to" 
print "the computer, and indicate its sixe" 
print "in 64k banks, the program will operate" 
print"without modification in either" 
print "the 64 or the 128." 

print: print "the program is fully relocatable to" 
print "any start address , for compatibility." 
prinf'good locations are 828 in the 64," 
print "and 2810 in the 128." 

print: input "your start address ";a$ 

sa=val(a$):if sa*0 then sa=828 -2000* (peek (46) >27) 

for i=sa to sa+117 
read a; poke i,a 
next 

4 

print chr$ (147) : print "identifying ram:" 
print : print "ays" s a 

print: print "this command will locate a ram" 
print "cartridge and indicate the number of" 
print"banks in location $00fb (251). M 
print "a value of means no expansion ram." 
print "opt ions are 2, 4 r or 8 banks of 64k." 
print: print "number of banks installed now:" 
sys sa 

print: print "peek (251) =" peek (251) 
print: print "press return to continue" 
input a$ 

print chr$ (147) : print "stash and fetch:" 

print: print "to start, set these parameters; all" 

print"others will be set to zero:" 

print: print "poke 251 , external ram bank ff" 

print "accumulator = msb external ram address" 

print "x register = msb computer address" 

print "y register = msb length to transfer" 

print: print "on the 64, poke these three values" 
print "into locations 780 to 782, then. . .":print 

print"sy$"sa+4" to stash" 
print" sys "sa+7" to fetch" 

print: print "on the 128, use the extended sys" 
print "command, for example, to save this" 
print "screen at the start of external ram:" 
print: print "poke 251,0:sys"sa+4",0,4,4" 

end 

datal69, 0,240, 6, 24, 144, 80, 56, 176/77, 120, 162, 10, 157, 0,223, 202, 208 
data250,232, 142, 8,223,134, 251, 169, 180, 141, 1,223, 169, 181, 133,251,141,1 
data223, 197,251, 240, 40, 173, 0,223, 41, 16, 208, 4, 169, 2, 208,31,169, 4 
dataHl, 6, 223, 169, 1,133, 251, 169, 183, 141, 1,223, 173, 0,223, 41,32, 208 
data4,169,4,208,6, 169,8, 208, 2, 169,0,133,251, 88, 96,141, 5, 223 
datal42, 3, 223, 140, 8, 223, 166, 251, 142, 6, 223, 169, 0,141,2, 223, 141, 4 
data223, 141, 7, 223, 105, 180, 141, 1,223, 96 
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Listing 2: ramfinder.src 



**************** 



external ran 

identifier 



for the c-64 

and c-128 



**************** 



(c) ian adam 

nay 1988 

Vancouver be 



zpbank = $00fb 
rec = $df00 



'jump table' 

start address = test exram 
sa + 4 = stash 
sa + 7 = fetch 



dummy start address 

P 

* = $2000 

code is fully 
relocatable., 
and executes 
on either the 64 
or 128 {bank 15) 



Ida #$00 ; entry to test ram 
beq trial 





clc 

bcc stash 


; entry for stash 


1 


sec 

bes stash 


; entry for fetch 



************* 

* * 

* trial * 

* stash * 

* * 

************* 



move zero page from computer 
to external ram bank 0, as 
; a test of cartridge operation: 



r 

m 

r 

• 

r 

trial sei 




Idx f$0a 




clear sta rec,x 


; clear registers 


dex 




bne clear 

r 




r 

inx 




stx $df08 


;move 1 page 


stx zpbank 


; plant seed 



sta rec+1 ; execute 



Ida #$b4 ; control byte = stash 
sta rec+1 ; execute 



******************************** 

the value 1 was saved as a test, 
if the stash was successful; 
then that seed value will be 
restored when the same page is 
fetched back, thus, this 
sequence will detect a working 
external ram cartridge: 



Ida #$b5 ; control byte = fetch 

sta zpbank 

sta rec+1 ; execute 

emp zpbank ; check it 

beq noram ;exit if no exram found 

; external rim located - 
; find out how much: 

r 

Ida rec 

and #$10 ; check f of banks 

bne more 



if bit 4 is clear, then 
there must be 128k of 
external ram r in 2 banks: 

Ida #$02 
bne exit 



****************************** 

if bit 4 is set r then there 
are either 4 banks (256k) or 
8 banks (512k) . test for this 
by verifying bank 4 . if there 
are only 4 banks, bank will 
read as bank 4, and verify ok. 
if there are 8 banks, a verify 
error will result: 



more Ida #$04 
sta $df06 
Ida #$01 

sta zpbank 
Ida #$b7 



;set bank 4 



; control byte = verify 



Ida rec 
and #$20 
bne most 

Ida #$04 
bne exit 



most Ida 

bne exit 



*************** 

* * 

* exit with * 

* message * 

* * 

*************** 



; check status 
; for error 



;no error, 4 banks 



; error = 8 banks 



noram Ida #$00 

exit sta zpbank ; leave message 

cli 

rts 



the # of expansion banks will 
be left in zpbank ($00fb) . 
banks means no external ram. 
options: 2 r 4, or 8 banks. 



********************* 

* * 

* stash and fetch * 

* * 

********************* 



a = high byte expansion address 
x = high byte computer address 
y a high byte of length 
bank number in zpbank 
all other parameters set to 



stash sta $df 05 


;extemal ram address 


stx $df03 


;set computer address 


sty $df 08 


;set length 


ldx zpbank 




stx $df06 

■ 


;set bank 


Ida #0 


; set low bytes to 


sta $df02 




sta $df04 




sta $df07 





build control byte and execute: 

the carry bit will increment the 
control byte by 1, when a fetch 

was specified in the jump table 



adc #$b4 
sta rec+1 

rts 



; build control byte 
.execute 

;all finished 



.end 



D 
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Encryptor 



Password Protection for C64 



bv Jim Frost 



First, let me set the record straight, I believe in neither copy 
protection nor stealing programs. Why then did I write 
Encryptor'? Computing at my house is a family pastime. 
Mother does word processing and neatens documentation so 
no one can find it. Jim (Grandpa is James R., I'm James S. and 
he's James T.) plays games and writes music. My daughter. 
Summer, writes BASIC games that she definitely does not want 
her older brother to touch. Jim naturally delights in analyzing, 
modifying and criticizing Summer's latest effort. With Sum- 
mer's work encrypted, I spend less time preventing fights and 
more time writing programs. 

If you have similar problems and want to protect BASIC pro- 
grams from unauthorized use, with Encryptor, it's easy! To use 
Encryptor, load and run the BASIC loader. Nothing appears to 
happen; however, Basic's load and save vectors are changed 
to access encryption routines. A password prompt appears 
when LOAD or SAVK is requested. For normal (plain-text) load- 
ing, simply press return. To save an encrypted program, enter 
a password in the spaces immediately following the prompt. 
Any password will work - provided it does not begin with a 
space and is not longer than eleven characters. 

Loading encrypted programs involves the same procedure as 
saving them. Type your password, then press return and let 
the computer work. Unless you use the correct password, 
loaded programs will be hopelessly scrambled, and the operat- 
ing system may even lock due to confusion while relinking 
gibberish. 

Encryptor works by exclusive-ORing the ninth and eleventh 
password characters with the first byte of your BASIC program. 
To provide additional confusion, the password is then rotated 
and the process repeated byte by byte until the entire program 
is encrypted. Because xORing zeroes changes nothing, a pass- 
word consisting of 11 @ characters (screen code 0) will not 
encrypt. More accurately, the encrypted version will be identi- 
cal to the plain text. I have slowed the encryption processes so 
that you can watch it work. If you prefer lightning speed, 
change the last data element from zero to one. 

While Encryptor will make breaking into your programs diffi- 
cult, no encryption method is infallible. With time and effort, 
any protection can be overcome. For those who savour the 



challenge of overcoming any obstacle, I have included data 
statements to create an encrypted BASIC program on disk. The 
password is my middle name. 

Listing 1: encryptor.s 



******************************* 

* 

* ENCRYPTOR 

* 

* LOADS AMD SAVES ENCRYPTED 

* FILES. TO USE ENTER 

* PASSWORD AT PROMPT 

* A SPACE PASSWORD BYPASSES 

* THE PROGRAM 

* 

* J FROST rev 4MAY89 

* 

******************************* 



ILOAD 


= $0330 




SAVE 


= $F5ED 




LOAD 


= $F4A5 




CHROUT 


= $FFD2 




STOBUF 


= $A560 




COUNT 


= $FD 
ORG $033C 
LDX #$03 




NEWPOINT 


IDA VTAB,X 


.change LOAD and SAVE 




STA ILOAD r X 


; pointers to encrypt code 




DEX 






BPL NEWPOINT 






RTS 




VTAB 


DA ELOAD 

DA ESAVE 


; encrypt addresses 


* Encrypted 


load Routine 




ELOAD 


PHA 


;save load/verify flag (in A) 




JSR PWDMSG 


;get password 




PLA 


; recover load/verify flag 




JSR LOAD 


;do normal load 




BCS LFAULT 


;if load error 




STX $2D 


;else save end of 




STY $2E 


;load address 




JSR ENCRYPT 


mess things up 




LDX $2D 


;then recover end of 




LDY $2E 


;load address 




CLC 


; carry indicates fault 



LFAULT 



RTS 



* Encrypted save routine 
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ESAVE 



JSR PWDMSG 
JSR ENCRYPT 
JSR SAVE 
JSR ENCRYPT 
CLC 
RTS 



;get password 

; scramble 

;then normal save 

; unscramble 

; carry indicates error 



* print password message then input password 



PWDMSG 



LDX #$00 



PWM1 


LDA 


TEXT,X 




BEQ 


PASWRD 




JSR 


CHROUT 




rax 






BNE 


PWM1 


PASWRD 


JSR 
RTS 


STOBUF 


TEXT 


HEX 


93 


TXT 


'pas 


5 sword: 



.get text character 
.zero flags end of string 

; non-zero - print 

;and loop 

; input password 



:CLR 



* encrypt /decrypt routine 



ENCRYPT 



LDA $0409 

CMP #$20 
BEQ NOENC 


;if space unencrypted 
; LOAD /SAVE requested 
.■skip encryption 


LDA #$00 

STA COUNT 


; count rotations 


LDA $2B 
STA $FB 


;copy start of BASIC 
.■address from #43 


LDA $2C 

STA $FC 


;to $FB 



* Encrypt loop - One cycle with a password will scramble. 

* A second pass with the same password changes encrypted to plaintext 



ELOOP 



LDY #$00 



; zero pointer 



LDA ($FB),Y ; fetch program character 



EOR $0411 
EOR $0413 
STA ($FB),Y 

INC $FB 

BNE ROTATE 

INC $FC 



;XOR with 9th 

;and 11th password character 

;and replace character 

; advance character pointer 
;low byte 

;and high if needed 



* scramble password for next pass 



ROTATE LDX $0413 
LDY #$09 

ROT1 LDA $0409, Y 
STA $040A r Y 
DEY 
BPL ROT1 

TXA 

STA $0409 

LDA FSTFLG 
BNE QUICK 

LDX #$D0 
LDY #$00 

TIMDEL INY 

BNE TIMDEL 

INX 

BNE TIMDEL 



* advance count and test for end of BASIC 



;save last password character 



; rotate 10 password characters 
;to right one bit 



rand rotate last 
;to first 

;do it fast? 

r if non-zero, hurry 

relse time delay 



TEST 



CPX #11 

BNE TEST 

LDX #$00 

STX COUNT 
LDA $FC 
CMP $2E 
BNE ELOOP 

LDA $FB 
CMP $2D 

BNE ELOOP 

LDA COUNT 
BNE ROTATE 



;last password character? 
,test end of BASIC 



; reached end of program? 
;high bytes match? 
;no then keep working 

;else test low bytes 



; password centred? 
;loop until it is 



* return to BASIC if no encrypt or when finished 



NOENC 



FSTFLG 



RTS 



HEX 00 



;any nonzero speeds encryption 



Listing 2: encryptor.bas 



BG 100 

EB 120 

DC 130 

EC 140 

FB 150 

PM 160 

CI 170 

IH 260 

BG 270 

AI 280 

EB 290 

PE 300 

HM 310 

ED 320 

CA 330 

KC 340 

NJ 350 

LP 360 

BG 370 

NM 380 

GC 390 

BA 400 

BP 410 

AJ 420 

JD 430 

LB 440 

MI 450 

KK 460 

ID 470 

EE 480 

KO 490 



rem places encryptor in cassette buffer 

nd=18Q: sa=827 ; ch=21121 

for i=l to nd: read x:pokesa+i,x 

ch=ch-x ; next 

if ch then print "data error": stop 

print "data ok, encryptor installed 

sys 828: end 



data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 



162, 3, 

202, 16, 

72, 32, 

176, 12, 

3,166, 

113, 3, 

32,141, 

130, 3, 

208,245, 

65, 83, 

0,173, 

169, 0, 

165, 44, 

77, 17, 

230,251, 

4,160, 

4,136, 
173,239, 

0,200, 
253,232, 
134,253, 
165,251, 
208,196, 



189, 72, 
247, 96, 
113, 3, 
134, 45, 
45,164, 
32,141, 

3, 24, 
240, 6, 

32, 96, 

83, 87, 

9, 4, 

133,253, 

133,252, 

4, 77, 
208, 2, 

9,185, 

16 r 247, 

3,208, 

208,253, 

224, 11, 

165,252, 

197, 45, 

96/ 



3,157, 

'6, 3, 



104, 
132, 

46, 
3, 



32, 
46, 
24, 
32, 



96,162, 
32,210, 

165, 96, 

79, 82, 

201, 32, 

165, 43, 

160, 0, 

19, 4, 

230,252, 

9, 4, 

138,141, 

10,162, 

232,208, 

208, 2, 

197, 46, 

208,182, 



48, 3 

99, 3 

165,244 

32,141 

96, 32 

237,245 

0,189 

255,232 

147, 80 

68, 58 
240, 90 
133,251 
177,251 
145,251 
174, 19 
153, 10 
9, 4 
208,160 
250,166 
162, 
208,188 
165,253 



QUICK 



LDX COUNT 
INX 



; advance count 



Listing 3: makescram.bas 

MG 100 rem transactor standard program generator 

EJ 110 n$=" scrambled, bas" 

KF 120 nd=43: sa=2049 : ch=2875 

KO 130 for i=l to nd: read x 

EC 140 ch=ch-x:next 

FB 150 if ch then print "data error": stop 

BM 160 print "data ok, now creating file." 

CM 170 restore 

CB 180 open 1,8,1, "0:"+n$ 

BM 190 hi=int{sa/256) :lo=sa-256*hi 

NA 200 print#l,chr${Io)chr$(hi); 

KO 210 for i=l to nd:read x 

HE 220 printll , chr$ (x) ; next 

JL 230 close 1 

MP 240 print "prg file' ";n$;"' created. . ." 

MH 250 print "this generator no longer needed." 

MD 260 print "program created will not run" 

CJ 265 print "unless you have the password" 

CL 270 data 21, 8,253, 48,138, 37, 70, 93 

AJ 280 data 64, 5,103, 87, 79, 4,126, 76 

NG 290 data 75, 69, 65, 18, 15, 59,111, 3 

AL 300 data 189, 18, 39, 76, 84, 53, 65, 5 

PK 310 data 96, 69, 65,115,115, 87, 65, 34 

AE 320 data 18, 18, 37 



□ 
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Pop-ASCII For The Commodore 64 



A handy pop-up utility 



by Peter MX, Lottrup 

Here's a programming aid that you won't want to be without 
once you've given it a try. With Pop- ASCI I installed, you* 11 
have immediate access to a pop-up window, displaying a list 
of ASCII codes in decimal and hexadecimal, along with the 
character corresponding to that code (or a three-character 
code, representing non -printable characters, like colours, 
reverse, cursors, etc). And you won't even lose the screen 
beneath Pop- ASCII, as the utility will restore it for you once it 
is done. Say goodbye to programming manuals and charts 
forever! 



jump to life. If, for any reason. Pop- ASCII ceases to function, 
you may reactivate it by simply typing sys 49152. RUN- 
STOP/restore will not deactivate Pop-ASCII. 

The customizing loader 

You may customize Pop-ASCII to your own preferences. 
Colours and activation keys may be changed. Any control key 
(SHIFT, CONTROL, CBM, CBM+SH1FT, etc.) plus RESTORE may be 

used to activate Pop- ASCII. 



Using Pop-ASCII 

When you call Pop-ASCII, using the k hot-key' combination 
Commodore-RESTORE, Pop-ASCII will spring to life on the 
centre of your current screen. Pop-ASCII is a 3-D window, 
where ASCII codes are displayed in decimal and hexadecimal, 
along with the corresponding character codes. Fourteen char- 
acters are shown per screen, and you may quickly shift 
through all characters using the up and down cursor keys to 
move forwards or back. The program starts by displaying 
character 32, the default starting point, but you may shift 
through all 255 characters. 

Pop-ASCII is an all-machine language program, which loads in 
the following address space: 

Start Address: $C000 
End Address : $C32E 

Once you have typed in the program, save it. If you plan to use 
it with the customizing loader program included, use the name 
ml-popascii for the save. 

To install the program in memory without using the loader 
program, type: 

load "ml-popascii" ,8,1 

new 

sys 49152 

Pop-ASCII will then be active and waiting for you to press the 
CBM-RESTORE keys. When this happens, you'll see Pop-ASCII 



To make customizing easy, a loader program has been included. 
It is written in basic. Type it in and save it. To customize Pop- 
ASCII, simply change the values in the DATA statements in lines 
10CM4G. 

Line 100 selects the background colour of the Pop- ASCII 
window. The current colour is cyan (print code 159). Replace 
this value for the ASCII print code value of the colour you wish 
to use. 

Line 105 selects the shadow colour of the window (currently 
black) in the same way. 

Line 1 10 determines what combination of keys (in conjunction 
with RESTORE) will activate Pop-ASCII. A value of one selects a 
shift key, a value of two the Commodore key, and a value of 
four the CTRL key. You may combine more than one of these 
keys, by adding the values. For example, a value of 3 selects 
the SHIFT+CBM+RESTORE keys to activate Pop- ASCII. 

Line 120 selects the character used to scroll the list of charac- 
ters a screen forwards (currently cursor down). 

Line 130 selects the backward shift key (currently cursor up). 

Line 140 selects the Pop-ASCII 'quit' key (currently q). 

The abbreviations 

Pop-ASCII uses a list of three-letter codes for non-printable 
characters. Most of them are quite direct, like BLK for black or 
RON for Reverse-On. Here's a list of abbreviations used: 
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WHT - 


- White 


DIS - 


- Disable SHIFT-CBM 


ENA ~ 


- Enable SHIFT-CBM 


RET - 


- Return 


LWR - 


- Lowercase 


DWN - 


- Cursor Down 


RON - 


- Reverse On 


HME - 


- Home 


DEL - 


- Delete 


RED - 


- Red 


RHT - 


- Cursor Right 


GRN - 


- Green 


BLU ■ 


- Blue 


SPC - 


- Space 


ORG - 


■ Orange 


SRT ■ 


- Shift-Return 


UPP - 


- Uppercase 


BLK - 


- Black 


CUP 


- Cursor Up 


ROF ■ 


- Reverse Off 


CLS ■ 


- Clear Screen 


INS ■ 


- Insert 


BRN - 


- Brown 


LRD - 


- Light Red 


GR1 - 


- Gray 1 


GR2 


- Gray 2 


LGR - 


- Light Green 


LBL ■ 


- Light Blue 


GR3 


- Gray 3 


PUR ■ 


- Purple 


LFT • 


- Cursor Left 


YEL ■ 


- Yellow 


CYH 


- Cyan 


SPC ■ 


- Space 



Listing 1: "p&pasciLsre" 



Programming notes 

The nmi interrupt vector was selected to activate Pop-ASCII, 
providing the easiest and shortest way of interrupting a pro- 
gram and activating a memory-resident utility. When Pop- 
ASCfi is called, current cursor colour and address are stored, 
along with screen and colour memory. 

This information is restored upon exit from the utility. The 
memory area below basic rom ($A000-$A8O0) is used for 
this storage. Aside from this memory, addresses 820-827 are 
used for miscellaneous data storage. The program itself resides 
at memory addresses $C00O-$C32E. 

I have been using Pop-ASCII for quite some time now, and find 
it incredibly handy. I use it for quick hex -dec conversions, and 
to find all necessary character codes. 

Just think about how often you have found yourself searching 
for that Commodore manual just to find the code for one of the 
function keys or some special character code. With Pop- ASCII 
installed, you'll be able to remain at the keyboard instead of 
rummaging through your bookshelves. 



NI 1000 ( 


>pen2,8,] 


./Oinl-popascii" 


DM 1010 ! 


sys 700 




PA 1020 


.opt p2 




HP 1030 ■ 


^ $c000 




m 1040 ; 


: — first save screen £ color 


EF 1050 




Ida #<newer 


ME 1060 




sta $0318 ; — new irq low — 


HG 1070 




Ida f>newer 


AF 1080 




sta $0319 ;— new irq high -■ 


DF 1090 




Ida Ksetter 


JL 1100 




ldy l>setter 


LA 1110 




sta $0302 


MI 1120 




sty $0303 ;— make sure new l 


GF 1130 




rts 


KF 1140 setter 


Ida |<newer 


ND 1150 




sta $0318 


BM 1160 




Ida jf>newer 


CF 1170 




sta $0319 


HI 1180 




Ida 10 


DB 1190 




sta active 


AM 1200 




jmp $a483 


IL 1210 ] 


newer 


pha 


FG 1220 




Ida 653 


CA 1230 




cmp 12 


KK 1240 




beq ours 


MB 1250 , 


ignore 


pla 


K 1260 




jrap $fe47 


NF 1270 i 


ours 


Ida active 


IE 1280 




bne ignore 


JF 1290 




inc active 


KK 1300 




Ida 204 


CA 1310 




sta ctemp 


ON 1320 




inc 204 


KN 1330 




Ida 646 


JI 1340 




sta tcolor 


HM 1350 




sec 


PO 1360 




jsr $fff0 


PD 1370 




stx cur 


GC 1380 




sty cur+1 


JL 1390 




ldy 10 


AP 1400 


;— store screen and color memory 


KE 1410 


ioopi 


Ida $0400,y 


LL 1420 




sta $a000 r y 


FK 1430 




Ida $d800,y 


AG 1440 




and 115 


FO 1450 




sta $a400,y 


CJ 1460 




Ida $05G0,y 


AP 1470 




sta $al00,y 


KN 1480 




Ida $d900,y 


CJ 1490 




and 115 


KB 1500 




sta $a500,y 


HM 1510 




Ida $0600, y 


FC 1520 




sta $a200,y 


EC 1530 




Ida $daQ0,y 


EM 1540 




and #15 


PE 1550 




sta $a600,y 


MP 1560 




Ida $07Q0,y 


KF 1570 




sta $a300,y 


JF 1580 




Ida $db00,y 


GP 1590 




and 115 


EI 1600 




sta $a700 ; y 


KC 1610 




iny 


OB 1620 




bne loopl 


BA 1630 


;— now 


display the pop-ascii window — 


FL 1640 




ldx #3 


FF 1650 




ldy 112 


CP 1660 




clc 


FC 1670 




jsr JfffO 


NB 1680 




Ida f{roP 


DD 1690 




jsr $ffd2 



stays 
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LK 1700 




Ida f" {black}" 




HE 1710 




jsr $ffd2 




ED 1720 




Ida #"(logo-y}" 




NK 1730 




ldx 116 




DJ 1740 


loopO 


jsr $ffd2 




HI 1750 




dex 




JK 1760 




bne loopO 




JD 1770 




ldx #4 




EN 1780 




ldy #11 




EH 1790 




clc 




HK 1800 




jsr $fffO 




AC 1810 




Ida JKprep 




GI 1820 




ldy |>prep 




AH 1830 




jsr Sable 




JB 1840 




ldy 114 




BN 1850 




Ida I" (shift**} 1 ' 




BB 1860 


loop3 


jsr $ffd2 




JA 1870 




dey 




EC 1880 




bne locp3 




DM 1890 




Ida f'flogo-s}" 




FA 1900 




jsr $ffd2 




PD 1910 




jsr black 




BN 1920 




ldx #5 




HD 1930 i 


entry 


ldy 111 




KA 1940 




clc 




ND 1950 




jsr $fff0 




GH 1960 




Ida IT 




LE 1970 




jsr $ffd2 




FK 1980 




ldy #14 




LP 1990 




Ida |" " 




PJ 2000 loop4 


jsr $ffd2 




FJ 2010 




dey 




BL 2020 




bne loop4 




HI 2030 




Ida 1"}" 




6J 2040 




jsr $ffd2 




LM 2050 




jsr black 




10 2060 




inx 




GA 2070 




cpx|21 




HP 2080 




bcc entry 




KA 2090 




ldy 111 




KK 2100 




clc 




NN 2110 




jsr $fff0 




GK 2120 




Ida i"{logo-z}" 




LO 2130 




jsr $ffd2 




DP 2140 




Ida 1") shift-*}" 




PE 2150 




ldy 114 




BE 2160 


loopS 


jsr $ffd2 




FD 2170 




dey 




CF 2180 




bne loopS 




MB 2190 




Ida |"{logo-xr 




BD 2200 




jsr $ffd2 




HJ 2210 


;— now 


fill the window - 


— 


DD 2220 




Ida 132 




FL 2230 




sta 2 ; — 


initial char - 


NB 2240 


again 


Ida |6 




ME 2250 




sta line 




FK 2260 




jsr place 




LP 2270i 


store 


Ida 2 




KK 2280 




cmp 110 




EC 2290 




bcs notone 




DO 2300 




Ida f"0" 




PJ 2310 




jsr $ffd2 




BK 2320 notone 


anp #100 




CP 2330 




bcs none 




U 2340 




Ida #"0" 




HN 2350 




jsr $ffd2 




PD 2360 


none 


ldx 2 




NC 2370 




Ida 10 




JJ 2380 




jsr $bdcd ; — 


display number 


IG 2390 




jsr twospaces 





DE 2400 ;— now hex number — 

EA 2410 Ida 2 

BH 2420 and |$£0 

HF 2430 lsr 

BG 2440 lsr 

LG 2450 lsr 

FB 2460 lsr 

MB 2470 Clc 

DH 2480 jsr dispnum 

EF 2490 Ida 2 

HN 2500 and |$0f 

BJ 2510 jsr dispnum 

KO 2520 jsr twospaces 

MH 2530 Ida 2 

IL 2540 cmp 132 

AJ 2550 bcc speciall 

IK 2560 cmp 1128 

IE 2570 bcc normal 

MK 2580 cmp 1161 

MJ 2590 bcs normal 

NE 2600 special2 sec 

FK 2610 stc 1128 

HO 2620 sta temp 

BP 2630 asl 

GM 2640 Clc 

JL 2650 adc temp 

DD 2660 tay 

LL 2670 ldx 13 

KP 2680 lol Ida table2 r y 

LB 2690 jsr $ffd2 

MG 2700 iny 

HE 2710 dex 

PJ 2720 bne lol 

OC 2730 jmp finish 

CA 2740 speciall asl 

ED 2750 clc 

EF 2760 adc 2 

BK 2770 tay 

JC 2780 ldx 13 

LG 2790 lo2 Ida tablet, y 

JI 2800 jsr $ffd2 

KN 2810 iny 

LL 2820 dex 

AB 2830 bne lc2 

MJ 2840 jmp finish 

BL 2850 normal Ida 132 

FM 2860 jsr $ffd2 

AN 2870 Ida 2 

JN 2880 jsr $ffd2 

PB 2890 Ida f n 

NO 2900 jsr $ffd2 

KB 2910 finish Ida #13 

BA 2920 jsr $ffd2 

GN 2930 inc line 

GD 2940 inc 2 

HF 2950 jsr place 

EN 2960 Ida line 

OF 2970 cmp 120 

IJ 2980 bcs waitkey 

FO 2990 jmp more 

JL 3000 ; — wait for 'q' key — 

DN 3010 waitkey jsr $ffe4 

U 3020 cmp #"{down)" 

LO 3030 beq forward 

PC 3040 cmp I" {up}" 

KD 3050 beq back 

DI 3060 cmp #"q n 

LN 3070 bne waitkey 

GE 3080 ;— now restore current screen — 

LK 3090 sei 

HG 3100 ldy 10 

PL 3110 Ida 1 

MF 3120 and 1254 

KJ 3130 sta 1 ; — switch out basic rom 
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JI 3140 ;— - restore screen £ colors 




LD 3150 loop2 


Ida $a000,y 




BH 3160 


sta $0400,y 




PF 3170 


Ida $a400,y 




JL 3180 


sta $d800,y 




KG 3190 


Ida $al00 f y 




MJ 3200 


sta $0500, y 




KI 3210 


Ida $a5Q0,y 




KO 3220 


sta $d90Q,y 




FJ 3230 


Ida $a200,y 




HM 3240 


sta $0600, y 




PL 3250 


Ida $a600 r y 




EC 3260 


sta $daQ0,y 




AM 3270 


Ida $a300,y 




CP 3280 


sta $0700, y 




AO 3290 


Ida $a700,y 




PE 3300 


sta $db00,y 




ON 3310 


iny 




DM 3320 


bne loop2 




EL 3330 ;— restore basic & interrupts 


-- 


FK 3340 


Ida 1 




GP 3350 


ora 11 




HP 3360 


sta 1 




IL 3370 


cli 




LN 3380 


ldx cur 




CM 3390 


ldy cur+1 




OL 3400 


clc 




BP 3410 


jsr $fff0 




LG 3420 


Ida tcolor 




ME 3430 


sta 646 




GB 3440 


Ida ctemp 




OE 3450 


sta 204 




BP 3460 


sta active 




LJ 3470 


Ida ffrvs off J" 




BD 3460 


jsr $ffd2 




KC 3490 


pla 




AH 3500 


rti 




ND 3510 forward 


jnnp again 




IP 3520 


back Ida 2 




LE 3530 


sec 




LB 3540 


sbc 128 




GL 3550 


sta 2 




HK 3560 


jmp again 




BP 3570 twospaces Ida 1" " 




FJ 3580 


jsr $ffd2 




PJ 3590 


jsr $ffd2 




MP 3600 


rts 




LK 3610 place 


ldx line 




KA 3620 


ldy 113 




EK 3630 


clc 




HN 3640 


jsr SfffO 




PM 3650 


Ida Hit*} 1 




FO 3660 


jsr $ffd2 




CE 3670 


rts 




IB 3680 dispnum 


cmp 110 




DG 3690 


bcc numeric 




KO 3700 


clc 




EA 3710 


adc 155 




BC 3720 


jsr $ffd2 




Ofl 3730 


rts 




m 3740 numeric 


clc 




DD 3750 


adc 148 




JE 3760 


jsr $ffd2 




GK 3770 


rts 




ME 3780 black 


Ida 1" {black}" 




BG 3790 


jsr $ffd2 




NA 3800 


Ida I" " 




Lfl 3810 


jsr $ffd2 




AC 3820 


Ida rjcyin)" 




PI 3830 


jsr $ffd2 




MO 3840 


rts 




CC 3850 prep 


.asc "(rvsHcyanKlogo- 


a}" 


OE 3860 


♦byt 




EH 3870 active = 


821 





FH 3880 cur = 822 

FE 3890 ctemp = 824 

FD 3900 line = 825 

LE 3910 temp = 826 

BD 3920 tcolor = 820 

FB 3930 ;— data for special characters — 

GF 3940 tablel .asc " wht disena" 

KO 3950 asc " retiwr dwnronhmedel " 

JP 3960 .asc " redrhtgrnbluspc" 

NC 3970 table2 .asc " org fl f3 f5 f7 f2" 

BL 3980 .asc " f4 f6 f8srtupp blkcuprofclsinsbrnlrd" 

BC 3990 .asc "grlgr21grlblgr3purlftyelcynspc M 

Listing 2: "customize)" 

EF 10 rem — * pop-ascii 

IG 20 rem — customizing loader — 

MD 30 rem 

JH 35 ifa=0thena=l:load"ml-popascii",8 f l 

IC 40 read bc:poke 49760, bc;poke 49766, be 

GI 50 read sc:poke 49750, sc:poke 49309, sc 

JG 60 read ky:poke 49196, ky 

KE 70 read d*r:poke 49585, dw 

Kfl 80 read up:poke 49589, up 

MH 90 read qt:poke 49593,qt 

ME 95 sys49152 

CF 100 data 159; rem — background color: cyan — 

NC 105 data 144: rem — shadow color :black — 

FF 110 data 2:rem — activation key:cbra — 

KC 120 data 17: rem — forward scroll: cursor down — 

CD 130 data 145: rem — backward scroll: cursor up — 

EO 140 data 81: rem — quit key:q — 

Listing 3: BASIC generator for "ml-popascii" 



EL 100 rem generator for "ml-popascii" 

HK 110 n$=" ml-popascii" ; rem name of program 

FD 120 nd=815: sa=49152: ch=83582 

(for lines 130-260, see the standard generator on page 5 



NE 


1000 data 169, 


39, 


141, 


24, 


3, 


169, 


192 


141 


PC 


1010 data 25, 


3, 


169, 


21, 


160, 


192, 


141 


2 


CA 


1020 data 3, 


140, 


3, 


3, 


96, 


169, 


39 


141 


BC 


1030 data 24, 


3, 


169, 


192, 


141, 


25, 


3 


169 


HG 


1040 data 0, 


141, 


53, 


3, 


76, 


131, 


164 


72 


CB 


1050 data 173, 


Hi, 


2, 


201, 


2, 


240, 


4 


104 


HE 


1060 data 76, 


71, 


254, 


173, 


53, 


3, 


208 


247 


ME 


1070 data 238, 


53, 


3, 


165, 


204, 


141, 


56 


3 


KP 


1080 data 230, 


204, 


173, 


134, 


2, 


141, 


52 


3 


CB 


1090 data 56, 


32, 


240, 


255, 


142, 


54, 


3 


140 


MF 


1100 data 55, 


3, 


160, 


0, 


185, 


0, 


4, 


153 


KE 


1110 data 0, 


160, 


185, 


o, 


216, 


41, 


15, 


153 


OF 


1120 data 0, 


164,. 


185, 


0, 


5, 


153, 


0, 


161 


CH 


1130 data 185, 


0, 


217, 


41, 


15, 


153, 





165 


NE 


1140 data 185, 


I 


6, 


153, 


0, 


162,. 


185 





AK 


1150 data 218, 


41, 


15, 


153, 


0, 


166, 


185, 





KA 


1160 data 7, 


153, 


0, 


163, 


185, 


0, 


219, 


41 


JA 


1170 data 15, 


153, 


0, 


167, 


200, 


208, 


197, 


162 


JJ 


1180 data 3, 


160, 


12, 


24, 


32, 


240, 


255 


169 


HA 


1190 data 18, 


32, 


210, 


255, 


169, 


144, 


32, 


210 


00 


1200 data 255 , 


169, 


183, 


162, 


16, 


32, 


210, 


255 


JK 


1210 data 202, 


208, 


250, 


162, 


4, 


160, 


11, 


24 


BD 


1220 data 32, 


240, 


255, 


169, 


101, 


160, 


194 


32 


DE 


1230 data 30, 


171, 


160, 


14, 


169, 


192, 


32, 


210 


FN 


1240 data 255, 


136, 


208, 


250, 


169, 


174, 


32, 


210 


EN 


1250 data 255, 


32, 


85, 


194, 


162, 


5, 


160, 


11 


KD 


1260 data 24, 


32, 


240, 


255, 


169, 


221, 


32, 


210 


EJ 


1270 data 255, 


160, 


14, 


169, 


32, 


32, 


210, 


255 
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FP 


1280 data 136, 


208, 


250, 


169, 


221, 


32, 


210, 


255 


FG 


1290 data 


32, 


85, 


194, 


232, 


224, 


21, 


144, 


222 


HE 


1300 data 160, 


11, 


24, 


32, 


240, 


255, 


169, 


173 


BO 


1310 data 


32, 


210, 


255, 


169, 


192, 


160, 


14, 


32 


NC 


1320 data 210, 


255, 


136, 


208, 


250, 


169, 


189, 


32 


ND 


1330 data 210, 


255, 


169, 


32, 


133, 


2, 


169, 


6 


JB 


1340 data 141, 


57, 


3, 


32, 


52, 


194,. 


165, 


2 


HD 


1350 data 201, 


10, 


176, 


5, 


169, 


48, 


32, 


210 


BE 


1360 data 255, 


201, 


100, 


176, 


5, 


169, 


48, 


32 


NE 


1370 data 210, 


255, 


166, 


2, 


169, 


Or 


32, 


205 


NP 


1380 data 189, 


32, 


43, 


194, 


165, 


2, 


41, 


240 


FC 


1390 data 


74, 


74, 


74, 


74, 


24, 


32, 


67, 


194 


LP 


1400 data 165, 


2, 


41, 


15, 


32, 


67, 


194, 


32 


BK 


1410 data 


43, 


194, 


165, 


2, 


201, 


32, 


144, 


35 


KM 


1420 data 201, 


128, 


144, 


51, 


201, 


161, 


176, 


47 


CP 


1430 data 


56, 


233, 


128, 


141, 


58, 


3, 


10, 


24 


FL 


1440 data 109, 


58, 


3, 


168, 


162, 


3, 


185, 


204 


GM 


1450 data 194, 


32, 


210, 


255, 


200, 


202, 


208, 


246 


HH 


1460 data 


76, 


150, 


193, 


10, 


24, 


101, 


2, 


168 


AC 


1470 data 162, 


3, 


185, 


105, 


194, 


32, 


210, 


255 


JO 


1480 data 200, 


202, 


208, 


246, 


76, 


150, 


193, 


169 


KI 


1490 data 


32, 


32, 


210, 


255, 


165, 


2, 


32, 


210 


MF 


1500 data 255, 


169, 


32, 


32, 


210, 


255, 


169, 


13 


CD 


1510 data 


32, 


210, 


255, 


238, 


57, 


3, 


230, 


2 


BA 


1520 data 


32, 


52, 


194, 


173, 


57, 


3, 


201, 


20 


LC 


1530 data 176, 


3, 


76, 


22, 


193, 


32, 


228, 


255 


KP 


1540 data 201, 


17, 


240, 


106, 


201, 


145, 


240, 


105 


HJ 


1550 data 201, 


81, 


208, 


241, 


120, 


160, 


0, 


165 


NH 


1560 data 


1, 


41, 


254, 


133, 


1, 


185, 


0, 


160 


DC 


1570 data 153, 


0; 


4, 


185, 


0, 


164, 


153, 





FD 


1580 data 216, 


185, 


0, 


161, 


153, 


0, 


5, 


185 


AD 


1590 data 


0, 


165, 


153, 


0; 


217, 


185, 


0, 


162 


JB 


1600 data 153, 


0, 


6, 


185, 


0, 


166, 


153, 





BG 


1610 data 218, 


185, 


0, 


163, 


153, 


0; 


7, 


185 


CD 


1620 data 


0, 


167, 


153, 


0, 


219, 


200, 


208, 


205 


HG 


1630 data 165, 


1, 


% 


1, 


133, 


1, 


88, 


174 


KI 


1640 data 


54, 


3, 


172, 


55, 


3, 


24, 


32, 


240 


OG 


1650 data 255, 


173, 


52, 


3, 


141, 


134, 


2, 


173 


CK 


1660 data 


56. 


3, 


133, 


204, 


141 


53, 


3, 


169 


FL 


1670 data 146, 


32, 


210, 


255, 


104, 


64, 


76, 


14 


IL 


1680 data 193, 


165, 


2, 


56, 


233, 


28, 


133, 


2 


NM 


1690 data 


76, 


14, 


193, 


169, 


32, 


32, 


210, 


255 


PK 


1700 data 


32, 


210, 


255, 


96, 


174 


57, 


3, 


160 


KH 


1710 data 


13, 


24, 


32, 


240, 


255 


169, 


18, 


32 


GK 


1720 data 210, 


255, 


96, 


201, 


10 


144, 


7, 


24 


HL 


1730 data 105, 


55, 


32, 


210, 


255 


96, 


24, 


105 


AO 


1740 data 


48, 


32, 


210, 


255, 


96 


169, 


144, 


32 


BP 


1750 data 210, 


255, 


169, 


32, 


32 


210, 


255, 


169 


AJ 


1760 data 


159,. 


32, 


210, 


255, 


96 


18, 


159, 


176 


MK 


1770 data 


0, 


32, 


32, 


32, 


32 


32, 


32, 


32 


GP 


1780 data 


32, 


32, 


32, 


32, 


32 


32, 


32 ,. 


32 


ED 


1790 data 


87, 


72, 


84, 


32, 


32 


r 32, 


32, 


32 


FI 


1800 data 


32, 


68, 


73, 


83, 


69 


, 78, 


65, 


32 


EB 


1810 data 


32, 


32, 


32, 


32, 


32 


32, 


32, 


32 


CJ 


1820 data 


82 ; 


69, 


84, 


76, 


87 


r 82, 


32, 


32 


GI 


1830 data 


32, 


32, 


32, 


32, 


ee 


r 87, 


78, 


82 


PO 


1840 data 


79, 


78, 


72, 


77, 


69 


, 68, 


69, 


76 


MD 


1850 data 


32, 


32, 


32, 


32, 


32 


, 32, 


32, 


32 


GE 


1860 data 


32, 


32, 


32, 


32, 


32 


, 32, 


32, 


32 


NH 


1870 data 


32, 


32, 


32, 


32, 


32 


, 82, 


69, 


68 


BN 


1880 data 


82, 


72, 


84, 


71, 


82 


■ 78, 


66, 


76 


FL 


1890 data 


85, 


83, 


80, 


67, 


32 


r 32, 


32, 


79 


CI 


1900 data 


82, 


71, 


32, 


32, 


32 


, 32, 


32, 


32 


BK 


1910 data 


32, 


32, 


32, 


32, 


70 


, 49, 


32, 


70 


HJ 


1920 data 


51, 


32, 


70, 


53, 


32 


, 70, 


55, 


32 


MK 


1930 data 


70, 


50, 


32, 


70, 


52 


, 32, 


70, 


54 


DP 


1940 data 


32, 


70, 


56, 


83, 


82 


p 84, 


B5, 


80 


PO 


1950 data 


80, 


32, 


32, 


32, 


66 


, 76, 


75, 


67 


PB 


1960 data 


85, 


80, 


82, 


79, 


70 


■ 67, 


76, 


83 


OD 


1970 data 


73, 


78, 


83, 


66, 


82 


, 78, 


76, 


32 


IB 


1980 data 


68, 


71, 


82, 


49, 


71 


, 82, 


50, 


76 


DC 


1990 data 


71, 


82, 


76, 


66. 


76 


, 71, 


82, 


51 


PD 


2000 data 


80, 


85, 


82, 


76, 


70 


, 84, 


89, 


69 


IN 


2010 data 


76, 


67, 


89, 


78, 


83 


, 80, 


67 





Pinout Diagram for 6510 MPU 

(viewed from solder side of motherboard) 



V) 



RES 

02 IN 

R/H 

BB0 

DB1 

BB2 

DB3 

0B4 

DBS 

DBS 

DB7 

P0 

PI 

P2 

-IP3 

PA 
P5 
-IA15 
MA 
GRD 



s 

Z 



* 



01BH 
RDV 

IRQ 
HMI 
AEC 
Ucc 

A0 

Hi 

A2 
A3 

A4 

A5 

A6 

A7 

A8h 

A9 

A10I- 

A11 - 

A12 

A13 



1 



20 



a 



Expansion Port Pin Positions 

(viewed from solder side of motherboard) 
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Combiner 



A utility for geoWrite files 



by Nick Vrtis 

Combiner is a program which I wrote to take multiple 
geoWrite tiles and combine them into a single file. It comes in 
very handy when you have a number of separate documents 
and want to combine them so that you can edit and paginate 
the whole thing. Geos can be pretty slow if you are working 
without a RAM expander on a large document, so I found it 
quicker and easier to work with smaller files. This way I could 
key, spell check, etc. each file as a small piece, then combine 
them for final preparation. It also came in handy when some- 
one would write an article for our newsletter and I had to com- 
bine that article with the rest of the articles. 

When you double click on Combiner, you are presented with 
the Main Menu screen. This Main Menu has four items to 
select from: 

GEOS - This item is a pretty standard GEOS menu item. You 
can run any Desk Accessories which are on the same disk that 
Combiner was loaded from. You can also get information 
about Combiner, 

Done - Select this item when you are finished combining docu- 
ments. It has two submenu items: Quit will quit Combiner, and 
return you to the DeskTop and geoWrite will load geoWrite and 
let you edit the last output document you created (as if you had 
double-clicked on the document icon from the DeskTop). Note 
that in order for this to work properly, geoWrite must be on one 
of the disks currently in the active drives. 

- 

Help - This item is a short series of screens which covers the 
basic operation of Combiner, just in case you have forgotten 
something and don't have this documentation handy. 

Begin - This item is selected to start the process of combining 
an input file with an output file. After you have combined an 
input with an output, you will be returned to the Main Menu 
screen where you can select Begin again to repeat the process 
(either with the same output file, or a new r one). If you select 
Cancel from any of the windows in the process, you will be 
returned to the Main Menu screen. 

The first thing that happens after you select Begin is that you 
are presented with a series of windows to identify the output 



document. The first window gives you a choice to Create an 
new output File, or to Open an existing file and add to it. 
Create will ask for the name of the new output file. If that file 
already exists on the disk, you will be asked to confirm that 
you want to delete the old version. If you select Open an exist- 
ing file, you will be presented with the standard GEOS scrolling 
filename window showing all the geoWrite documents on the 
disk. Highlight the output file you want, and click over the 
Open box. 

Once the output file has been determined, the input file needs 
to be selected. This is done through a standard scrolling file- 
name window (the same way geoWrite lets you select an exist- 
ing file). Click to highlight the name of the file you want to 
use as input, and click the Open box to use that file. 

The last thing Combiner needs to know is where to put the in- 
put in the output file (in terms of pages). Combiner can pick 
off any number of pages from the input file (it doesn't need to 
be the whole document). It can also put those pages after any 
page of the output file (or insert them at the beginning). 

In order to get this information. Combiner puts up a window 
with five boxes. The first box requests the first page of the input 
document you want included in the output. The second box 
requests the last page of the input document you want included. 
Both the first page and the last page are included, so in order to 
select a single page, put the same number in both the first page 
box and the last page box. The third box requests the page 
number of the output document you want the new pages placed 
after. All the pages specified by the first page number and last 
page number will be placed after this page of the output. 

For example, if you wanted to put the first two pages of an in- 
put document after the second page of an existing document, 
■first page' would be L last page' would be 2, and "after page' 
would be 2. Page I of the input would become page 3 of the 
output. To insert the input pages at the beginning (before page 
1) of the output, use a value of for the 'after page*. 

When this window is first opened, the three numbers are 
initialized to select the whole input document and insert it at 
the end of the output document. If you are creating a new 
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output document, the 'after page' shows up as page 00. To get 
from one number box to the next, click in the box you want to 
go to. You don't have to fill in the boxes in order. You can exit 
the window by one of three ways. Hitting Return or clicking 
over the OK box will close the window and use the numbers 
currently in the boxes. Clicking over the Cancel box returns 
you to the Main Menu without processing any input. 

There are currently three different document versions pro- 
duced by various geoWrite versions. Version 1.x is from the 
geoWrite shipped with the original GEOS (version 1.0, LI, 1.2, 
1.3). Version 2.0 is from Writer's Workshop, and version 2.1 is 
from the Writer's Workshop upgrade or GEOS version 2.0. 
Combiner will combine different versions of geoWrite 
documents. When you are creating a new document its version 
is determined by the version of the first input file. Since 
Combiner will combine a version 2. 1 document with a version 
1.3 and produce a version 1.3 output file, it is conveniently 
allows owners of 1.x versions of geoWrite to edit files that 
have been produced originally by 2.x versions. You should be 
aware that there are features within version 2.1 (and 2.0) 
which are unavailable with version 1.3. Combiner drops the 
unsupported features when combining a higher version file 
into a lower version. 

Any graphics which are referenced in the pages selected from 
an input document will be copied along with those pages. 
Combiner doesn't bother copying any graphics not referenced 
by the pages selected. 

Version 2 of geoWrite allows for a header and footer page. 
Combiner will not select headers or footers from the input as 
there can only be one set of headers and footers per document. 
They are not removed from the output document, so if you 
need the headers and footers, use the DeskTop duplicate op- 
tion to make a copy of the file with the header and footer and 
use it as the first output file. 

Combiner will handle multiple drives if they are present on the 
system. You can also have the input and output documents on 
different disks (even with a single drive system). Combiner 
will ask you to insert the necessary disks as they are needed. 
Combiner reads as much of the input document into memory 
as it can and then writes it out in order to keep disk swapping 
to a minimum in a single drive system. Desk Accessories are 
always loaded from the disk that Combiner was on when it 
was loaded from the DeskTop. 

Combiner has been tested under versions 1.3 and 2.0 of GEOS, 
and version 1.4 of GEOS 128. [In tests here at the Transactor 
offices , // was necessary to exit to a 40-column version of 
geoWrite with GEOS 128 v2.0 - MO] 

Programming considerations 

In addition to being a useful program to have around, Combiner 
contains a number of examples of how to make use of various 
features within GEOS. In addition to the normal menus and 



windows, Combiner will run Desk Accessories, handles 
multiple drives, custom click boxes in a window, and multiple 
input fields in one window. I've tried to keep the source code 
well commented, so I will only present an overview in this ar- 
ticle. The routine labels I've used are those from Alexander 
Boyce's GEOS programmer's reference (except for the general 
purpose page zero locations). [The BSW labels and hex 
addresses are provided in square brackets following the first 
usage of each Boyce label. -MO] 

I'll start with how the geos portion of the main menu is setup 
and handled. What really happens is that the geos item is set 
up as a submenu from the main menu. When the source was 
coded, the submenu was set up to handle all nine possible 
items (eight Desk Accessories plus the info item). Then as part 
of the initialization process, Combiner uses TABLE [Find' 
FTypes, $c23b] to get a list of the names of Desk Accessories. 

Table returns a list of names which are 17 bytes apart, and 
zero-terminated, so the addresses don't need to be changed. 
All that needs to be adjusted in the submenu entry is the num- 
ber of items in the list, and the height of the menu. The num- 
ber of entries left is returned by TABLE, so a simple subtract 
gives the number used. Each entry takes 14 pixels, so the 
height can be calculated easily. Note that one of the reasons 
for the info option is so that the submenu under geos always 
has at least one entry. 

Running desk accessories 

Running a Desk Accessory from within a program is really 
pretty simple. All you need to do is point LOAD [GetFite, 
$c2081 to the name you want, and GEOS takes care of saving 
and restoring the piece of your program which is going to be 
overlay ed. If your screen is not complicated, tell the Desk Ac- 
cessory not to bother saving and restoring the screen. This can 
save some disk I/O if the Desk Accessory has to create a 
temporary file to save the screen. 

Most of the GEOS environment is preserved during the running 
of the Desk Accessory. Unfortunately, Berkeley has never pub- 
lished much about what a Desk Accessory can and cannot 
trash, so I would be a little careful. Obviously, the general pur- 
pose registers (rO - rl5) are not preserved, nor are the disk 
buffers. Strangely, I haven't found anything in GEOS which in- 
dicates an open or a closed VLIR file, so I would not count on 
this being preserved between calls to a Desk Accessory. If you 
think about it, these restrictions aren't too bad. Since your pro- 
gram controls when the menu entry is active, just make sure 
that you aren't in the middle of some complicated update 
when you activate it. 

You might be interested in looking at how the geoWrite option 
of Done is implemented. This is an example of how to transfer 
from one program to another as if it had been double-clicked 
on from the DeskTop. This avoids the hassle of reloading the 
DeskTop just to get to geoWrite to clean up the file you just 
created. 
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Text windows and custom click boxes 

There was a little challenge in doing the Help windows. The 
way text is implemented in windows, each line has to be a sep- 
arate entry in the window definition. This is because the 
WINDOW routine [DoDIgBox, $c256] sets the left margin to 
zero (instead of the left edge of the window) so a carriage 
return in the text takes you outside the window. Having each 
line as a separate entry either means a separate window defini- 
tion for each help screen, or adjusting a lot of pointers for each 
line. 

I didn't care for either alternative. So I cheated and used the 
'set next character position' function code ($16) within the 
text. The three bytes after this code specify the absolute x and 
y coordinates where the following text is to be displayed. The 
Help window definition has only one text pointer (rl2). This 
points to one long text string which contains positioning com- 
mands to format the text correctly. The bad part of doing win- 
dows this way is that if you move or resize the window, you 
have to go back and recalculate all the positioning. 

The Begin main menu entry really starts the combining pro- 
cess. The code in this section is pretty straightforward. The 
way the Drive option is implemented is that windows which 
may or may not have a Drive box on them have been designed 
with that box definition at the end. Unlike menus which start 
with a count of the number of entries, windows end when they 
have a function byte of zero. So, by putting the Drive box last, 
it can be included in the window by making the function byte 
equal to $12 (custom click box), or removed from the window 
by making it equal to zero. 



Combiner checks numdrv during initialization, and sets the 
function bytes appropriately for those windows which may or 
may not have a Drive box. This way, the code which processes 
the windows doesn't have to worry about whether there are 
enough drives. The only way that code will be executed if 
there was a Drive box in the window, and there will only be a 
Drive box if there is more than one drive on the system. 

Non-standard windows 

Probably the hardest part of this program was doing the win- 
dow asking for the starting page, the ending page, and the 
page to put them after. It is definitely a non-standard window! 
The way I wanted to implement it was to have all three num- 
bers on one window, and let the user click on any of the num- 
bers to get into that box and change it. This is similar to the 
way geoWrite implements the search and replace function (in 
fact that's where I got the idea). There were challenges though. 

The trick is displaying text within a click box. The window 
processor doesn't do any click boxes until the very end of pro- 
cessing (regardless of where they appear in the window defini- 
tion). So what 1 had to do was put up and display all the click 
boxes for the window from within a routine (labeled w r HERE- 
sht) which gets called after the window is drawn. You have to 



do all click boxes at once, because GEOS can only handle one 
set at a time. Any boxes specified in the window definition 
will replace those you have defined in the setup routine. I 
wanted to show the default values for each of the page num- 
bers required within a box. But, when CBOXES [Dolcons, 
$cl5a] draws a box, it overlays anything under the box area (it 
makes sense when you think about how GEOS draws graphics). 
The first thing WHERESET does is put up the click boxes. Then 
it displays the default values for the pages within the areas 
where the boxes are by calling WHEREIN. 

Handling user text input 

In order to start the process, one text input function needs to 
be defined in the window definition. You don't want to define 
all three, since input [GetString, $clba] saves a copy of the 
carriage return entered vector and replaces it with its own val- 
ue. If you call input twice, the second call saves the wrong 
carriage return vector and when you hit return INPUT gets in a 
loop. 

Each page value has a control block associated with it. This 
block keeps the values which are needed to switch between 
one input area and the other {the input buffer, the number of 
characters entered, and the text cursor column). When the user 
clicks over one of the value boxes, two routines get called. 
Svwhere takes the necessary input values and saves them in 
the current control block (the current block index is saved in 
wiDXSAVE). Then nxtwhere is called to move the new values 
into the areas where input uses, and finally calls prompton to 
move the text cursor. As far as INPUT is concerned, nothing 
ever happened. 

These routines are not totally general purpose, since there is a 
lot in common with each area (size, starting column, number 
of characters, etc.) The whole window is closed by one of 
three actions: 1) entering a Return in any of the input win- 
dows, 2) clicking on the OK box, or 3) clicking on the Cancel 
box. Cancel takes you back to the main menu while the other 
two fall through and process the input from the window. One 
final bit of cleanup needs to be done before error-checking the 
user's input. When INPUT is accepting characters, it just keeps 
track of where the next one will go, but doesn't put the zero at 
the end of the string until the Return is entered. This works 
fine if you have only one input area; but with more it is possi- 
ble to have shortened a field and then moved to another field. 
The first field would not be properly zero-terminated but the 
count of the valid characters has been saved, so Combiner 
makes sure all three fields are properly terminated before 
checking the values. 

That is really the end of the major programming challenges 
(due to the way GEOS works) that I encountered while doing 
Combiner, There are a number of other details which needed 
to be taken care of. Rulers need special attention when con- 
verting between various revisions of geoWrite (a ruler is the 
set of codes which define the margins, tabs, etc.). Version 1 .x 
(any of the original geoWrite versions) only has one ruler per 
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page, and they are shorter than version 2 rulers. So whenever 
Combiner goes from version 2 to version I, it has to shorten 
the ruler at the start of the page, and discard any rulers found 
within the page (version 2 allows rulers at the start of any 
paragraph). Likewise, when going from version 1 to version 2, 
Combiner has to lengthen the ruler (and set up a default value 
for the paragraph indent). 

There are even some conversions which must be done when 
going between the two different version 2 documents. 
Version 2.0 was delivered with the original Writer's Work- 
shop, and is the default version created by the new C64 
versions of geoWrite. The difference between version 2.0 and 
version 2.1 is that version 2.1 margins can go from 0,2 
inches to 8.2 inches, and version 2.0 (and version 1.x) goes 
from 1.2 inches to 7.2 inches. This means that when going 
between these two versions, the values for the margins and 
tabs need to be adjusted. 

A value of zero for the left margin amounts to the 1.2 inches 
mark on the page for version 2.0 documents, and 0.2 inches 
for version 2.1. This is a pretty easy conversion, as all early 
version tabs are available in 2.1 rulers. But, a tab (or margin 
setting) of less than 1.2 inches (or greater than 7.2 inches) is 
meaningless (and impossible) in a 2.0 or 1.x document, so 
Combiner has to correct for these. The only 'gotcha' is that the 
7.2 inch value used in versions 1.x & 2,0 is one less than the 
pixel value needed by 2.1, You will notice an odd check for 
this in the program. 

Combining graphics 

Another minor adjustment which needs to be checked for 
when combining documents is the way graphics are refer- 
enced. In GEOS, graphics are not imbedded directly in the 
document. They are indicated by a graphics escape character, 
the size of the graphic, and the VLIR record number where the 
graphic is actually stored. In order to combine documents 
properly, any graphic escapes found in the input pages need 
to have the vlir record number adjusted because graphics 
from the original document may already be occupying that 
record. 

You also need to keep track of what graphics are actually 
used, since it would be possible for the user to select pages 
from the input which don't use all the graphics. The way 
Combiner does this is to have a 64-byte table (PICSUSED). 
This allows one byte for each possible graphic vlir. This 
gets initialized to zeros. Oldpics starts with the first free 
VLIR record from the original file. When a page gets read in, 
it is scanned for the graphics escape character ($10). When 
one is found, the input VLIR record is saved in the next 
available table slot (pointed to by OLDPICS). The record num- 
ber is then changed to the value of oldpics, as that is where 
it will go in the output file. Once all the input pages have 
been combined, PICSUSED is scanned for any non-zero val- 
ues. That vlir record from the input file is read in, and gets 
written out as a new output vlir record. 



Dealing with end of text markers 

One other * adjustment* needs to be made to text in the process 
of combining pages. When geoWrite stores a document, the 
last byte on the last page is a zero to indicate end of text. 
When Combiner needs to insert a new page after the last page 
of the output file, it needs to read the last sector of the last 
page, and replace the zero with a end of page character (the 
ASCII form feed - $0C). For the same reasons, if Combiner has 
to insert what was the last page of an input file in between 
pages of the output file, the zero at the end of the input page 
needs to be replaced with the form feed. 

Maximizing available RAM 

Combiner reads in as many pages of input into RAM as it can 
before writing that data out. This reduces the number of disk 
changes which occur in a single drive system when the input 
and output disks aren't the same. In order to increase the size 
of available RAM for the input buffer, Combiner doesn't use 
the background screen which normally goes from $6000 to 
$8000. 

Whenever GEOS closes a window (or menu) it calls the routine 
pointed to by IRECVR, with the coordinates of the area to be re- 
covered. Normally, IRECVR points to the routine which trans- 
fers a box from the background screen to the foreground. 

Combiner changes this vector to REPAT. The screen for 
Combiner is relatively simple, and except for the title area on 
the bottom, it is simply a pattern fill. So in most cases, REPAT 
simply sets the pattern to the one Combiner used in the title 
screen and calls pfill [Rectangle, $cl24] to replace the 
pattern. 

The only exception is for the Help windows which extend into 
the title area. Whenever this happens, REPAT has to redraw the 
title area as part of the window recovery. Repat actually gets 
called twice when a window is closed. Once for the border, 
and once for the main window. The position of the Help win- 
dow and the value that REPAT checks for were carefully chosen 
so that it recovers the title area only once. 

The method of buffering deserves some explanation. Combiner 
uses all the RAM from the end of the program to $8000 (the 
start of GEOS storage) for a big buffer. Each time a page gets 
read in, the first two available bytes are reserved as a pointer 
area, and then lchain [ReadFile, Sclff] is called in an attempt 
to load the VLIR record into the area available. After the page 
is processed (remember, the size might have changed if going 
between version 1 and version 2 type documents), the ending 
address is saved in the pointer field at the start of each page. 

The process is then repeated until either LCHAIN says a record 
would not fit, or we run out of input text pages. In either case, 
a zero is stored at the end of the last record that has been read 
in successfully (any record truncated by memory limitations is 
ignored - it will get picked up in the next pass). 
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Combiner then begins at the start of the buffer area, and writes 
out pages until it sees the zero pointer. In order to write a page, 
you need to know the starting address, and the number of 
bytes. The starting address of the data portion is two bytes past 
the current address pointer (RA2), and the length is the differ- 
ence between that and the ending address from the pointer 
area. 

After the vlir record is written, the old ending address be- 
comes the new current address and the process is repeated. 
This continues until Combiner finds the zeros as the new cur- 
rent address. This signifies the end of the data in memory. All 
that needs to be done is a quick check to see if all the request- 
ed pages have been processed in order to determine if we are 
done. Handling the graphics vlir records is done the same 
way. The only difference is that the PICSUSED table needs to be 
checked to determine which graphics pages need to be read in, 
and to which record they need to be written. 

That pretty much covers the high points of the Combiner code. 
The details are commented within the code, 1 had to break the 
source into two separate files and an include file because 
geoAssembler couldn't handle it all in one piece. 



$HCOMBINER - Header file for Combiner 



$HCOMBINER - Combine multiple geoWrite files into one - H. Vrtis 1/89 

Header definition file 



.header 
,word 
.byte 3 
.byte 21 



; first two always zero 
;size of ICON always fixed 











byte $80+3 , 
byte 6 , 
byte , 
word start , 


CBM filetype is DSK 
GEOS filetype is Application 
GEOS file structure is sequential 
where to load program 


word patch! 30 , 
word start , 


en 
be 


ding ad 
gin exe 


dress 

cut ion 3 load address 



byte "COMBINER Vl.r,0,0,0,$00 ; (40 column only) 

byte "Nicholas J. Vrtis", 0,0,0 

block 160-117 ; unused in header 

.byte "Combine multiple geoWrite files into a single file,", 
.byte "Nicholas J. Vrtis - 1989" ,0 
endh 
; end of $HCOMBINER 

/HCOMBINER - Include file for Combiner 



/COMBINER - Combine multiple geoWrite documents into one. - Nick Vrtis 
include file used to define Page zero locations & GEOS routines 



rO 
rl 
r2 
r3 
r4 



$02 
$04 
$06 

$08 
$0a 



r5 




$0c 




r6 


— — 


SOe 




r7 




$10 




r8 




$12 




r9 




$14 




rlO 




$16 




rll 




$18 




rl2 




$la 




string 




$24 ;. 


mput string pointer 


pline 




$26 




scnflg 




$2f ;\ 


Eorground/background flag 


mousex 


= 


$3a 




mousey 


= 


$3c 




t 

ra2 




$70 ;] 


so inter to start of a buffer area 


ra3 




$12 ,] 


winter to data part of buffer area (ra2+2) 


raO 




$fb 




ral 




$fe 




I 

.macro 


ldpt 


r p,pz 






Ida 


l[(p) 






sta 


pz 






Ida 


11 (P) 






sta 


pz+I 




.er.cn 








.macro 


window p 






ldx 


l[(p) 






ldy 


illpl 






jsr 


xywindow 


, en >in 








.macro 


movew src,dst 




Ida 


src+1 






sta 


dst+1 






Ida 


sre 






sta 


dst 




.endm 

r 








r 

bufO 


»» 


$8000 


' 1st disk buffer 


bufl 


= 


$8100 


2nd disk buffer 


buf2 


ss 


$8200 


3rd disk buffer 


tsbuf 


— 


$8300 


Track/Sector buffer 


direntry = 


$8400 


directory entry after open 


dfname 


" 


$8442 


double clicked filename 


ddname 


ss 


$8453 


double clicked disk name 


curdrv 


= 


$8489 


current drive number 


numdrv 


= 


$848d 


number of drives in system 


irecvr 


" 


$84bl 


screen recovery vector 


cursx 


== 


SB4be 


used by INPUT to store info 


cursy 


™ 


$84c0 


n It 


wincmd 


— 


$851d 


command from window close 


inplen 

■ 


ss 


$87cf 


used by INPUT to store info 


i 

pfill 


= 


$cl24 


Rectangle - pattern fill an area 


setpat 


== 


$c!39 


SetPattern - set display pattern 


dsptxt 


ss 


$cl48 


UseSystemFont - display text 


menu 


= 


$c!51 


DoMenu - menu processor 


eramns 


-- 


$c!57 


RecoverAllMenus - erase all menus 


cboxes 


BB 


$cl5a 


Do I cons - draw click boxes 


movedata == 


$cl7e 


MoveData - move a block of data 


drwmnu 


— 


$cl93 


ReDoMenu - redraw menu 


grphc2 


-= 


SclaS 


i GraphicsString - inline graphic commands 


input 


= 


$clba 


GetString - get text input 


cmenus 


ss 


$clbd 


GoToFirstMenu - close all menus 


read 


ss 


$cle4 


GetBlock - read in a sector 


write 


=- 


$cle7 


PutBlock - write a T/S 


save 


= 


$cled 


SaveFile - save data to file 


lchain 


ss 


$clff 


ReadFile - load a file chain 


follow 


= 


$c205 


FollowChain - follow disk chain 


load 


ss 


$c208 


GetFile - load desk accessory 


lookup 


= 


$c20b 


FindFile - find file entry 


dsetup 


ss 


$c214 


EnterTurbo - disk setup 
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read2 

restrt 
clrrch^ 
delete 
table 

undo* 
apnser 
cisser 
vopen 

vgoto 



vsave 

prcapton 

opndsk 

drvset 

drvnai 

clswin 



$c21a ; 
$c22c ; 
$c232 ; 
Sc238; 
$c23b; 
Sc256 r 
$c25c r 
Sc25f ; 
5c274 ; 
Sc277; 
$c280 ; 
$c2B9; 
Sc28f r 
Sc29(b ; 
Sc2al ; 
$c2b0 ; 
Sc298 ; 
$c2bf ; 



ReadBlock 



ExitTurbo 
DeieteFile 

FinaTTypes 

DoDlgBox 

InitForlO 

joneflithlQ 

OpenRecordFile 

CloseRecordFile 

PointRecord 

AppeadRecord 

WriteRecord 

FrooptOn 

OpenDisk 

SetDevice 

GetPtrCurDkHm 

MrFraDialog 



- disk read 

- reload desktop 

- stop turbc code 

- delete a file 

- create file list table 

- process window cooands 

- c-pen channel to disk 

- done with i/o 

- open vlir file 

- close vlir file 

- set vlir chain t 

- add record to vlir 

* save data to vlir record 

- turn text pronot on land 

- open disk in drive 

- set drive j| 

- get disk naoe 

- close tindoir 



sta drvoptl 

3ta dnropt3 

r 

; Bere is the comaon point to pot the sain unu back up 

■ 
r 

reeenu: ldptr laiimnu.rG ;doiainemi 

Ida \l ;on 'HELP'' 

]■» neri 



lp: Ml *0 

nelplp; sti belpidi 
Ida nelpptrs.i 



position) 



; end of /CCMBINIS. 



$1 COMBINER - First source file 

SICCfflims - Coibine multiple geoftite files into one. 
Nicholas J. Vrtis 
5863 Pinetree Si 
Rentwocd. 10 4950S 



include /CdSDER 



.psect 

start; Ida 
sta 



]ir 

Ida 

sta 

sta 

sta 

Id* 

isr 

ldy 

Ida 

sta 

dey 

bpl 

Idptr 

Ida 

sta 

Ida 

sta 

Ida 

sta 

sta 

]« 
sec 

Ida 

sbc 

tax 

ora 
sta 
Ida 
calcgmh: cic 
adc 
dex 
bpl 
sta 

Ida 

cip 

bcc 
Ida 



f$&0 

scnflg 

repaUrecvr 

opentitle 

curdrv 

dadskdrv 

odskdrv 

idskdn 

W 

drvr.cr 

(15 

M,y 

dadskna.y 

100S 

dacl.rE 

IS 

rl 

IB 

r7*l 

to 

rlO 

ilOrl 

table 

H 

rW 

#530 



;Page zero t GEOS definitions 



;I till be using the background screen 
;so tell GEOS not to use it 
:set my vector to recover 
;do opening credits 

save D.A. disk dim 

;alsc as inital output and input drive 



;save D.A. disk naoe 



;findD.A. r S 
;looking for D.A. 'S 

;up to 8 

do class 



;calc no* aany found 
;8 Di/a M for WO KK 

save cnt 

:add vertical tenu option bit 

i oak nenu hgt 
;tl for each (+14) 



m 

caicgmb 

gihgt 

12 

remen-j 

l«2 



; check if 2 drives available 

; , .drive not available 

;else enable -drive- click boxes 



sta rl2 

Ida heipptrs+1,1 

sta rl2+l 
window help 

Ida :j 

cap tl 

boe helpttn 

ldx belpidx 
inx 
Lux 

cpx 4[{maihelp-helpptrsf 

bcc helplp : , .tore to show 

: ]^ drwrnnu ; redraw the menu 



;chk option 
;..not -ok- 
;nxt help panel 



■ redraw the menu 



; setup pointers to name/disk of output 



doinfo: window infow 

i^ drvBDu 

dogeowrite: 

Idptr ddnane,r2 

Idptr dfnane,r3 

ldy m 

115$: Ida odaJmm, y 

Ida outii,y 

sta Ir3),y 

dey 

bpl 115$ 

Idptr geovxite, r£ rload GEOHBITE program 

Ida J$80 ;say "double clicked 

sta ri 

jsr load 

jsr error 

jap drwffliu 



; just in case load had an error 



dodal: Ida 

.byte $2c 

doda2: Ida 

-byte $2c 

doda3: Ida 

.byte $2c 

daW: Ida 

,byte $2c 

dodaS: Ida 

.byte S2c 

dodafi: Ida 

.byte 52c 

dodal: Ida 

.byte $2c 

dodaS: Ida 

sta 

jsr 

Ida 

ldx 

ldy 

jsr 



tdacl-danl 

♦dani-danl 

fdan3-danl 

Jdani-danl 

IdanS-danl 

fdan6-danl 

tdanl-danl 

fdanS-danl 

raO 

eramos 

dadskdn 



: offset to start of Dane 



;save offset 

; clear off aenu 
;aake sure DA'S avail 



tic 

Ida 
adc 
sta 



chkdsk 
dodaexit 

raO 

J[daol 
rfi 



:didn'twantto»antDi. disk 
;calc adi of start of name 



Ida fjdanl 




adc 10 




sta M 




Ida tO 


■ 


sta rO 


;do options 


sta rlO 


;I will restore screen/ color 


jsr load 




jsr opentitle 


; restore screen 


jap- renenu 


:go put menu back up 



dodaexit: 



helpw: .byte $01 
byte 18,171 

word 4 

word 305 

byte $0c,2,15,rl2 

byte 501,2,135 ;-ot- 

byte $02,31,135 ; -cancel- 
byte 

byte |lft, "GODS is a program to combine multiple geofiite" 

byte SIM. Or 13 

byte "documents into one/ 

byte $16,6,0,63 

byte "The MainMenu options are:" 

byte $16, 6 r 0,73 

byte $12, "GEOS", $13," - Lets you run any Desk Accessories on the" 

^te $16,6.-0,83 

byte "disk CMMR was loaded from." 

byte $16,6,0,53 

byte $12, "Done", $13," - QUIT and return to the DeskTop, or go to" 

byte (16,6,0,103 

byte "geofcite and edit the last output document." 

byte $16,6,0,113 

byte $12, , Begin",$13, n - Start the process of combining documents" 

byte $16,6,0,123 

byte "(sore information to follow)." 

byte $16,6,0,133 

byt* $12,"Eelp n ,$13," - His Help series of screens.",$lb,0 
help2: .byte $13, "After yoa select BEGIN, you will be presented with a" 

byte $16,6,0,43 

byte "window which allows you to:" 

byte $16,6,0,53 

byte $12."CH£ATE",$13," a new geoWrite output document." 

byte $16,6,0,63 

byte r (a follow on window will ask for the document name] ." 

byte $16,6,0,73 

byte $12,'W,$13," an existing geoWrite document for output. H 

.byte $16,6,0,83 

.byte "(a follow on window will present you with the" 

.byte $16,6,0,93 

.byte "standard filename selection window)" 

.byte $16,6,0,103 

.byte $12,"CHnL\$13," and return to the HainMenu,",$lb,0 
hilp3; .byte $18, "Once the input and output files have been identified, " 

.byte $16,6,0,43 

.byte "you need to tell CCHBIHER how many pages of the' 

.byte $16.6,0,53 

.byte "input document you want, and where to put them in" 

.byte $16,6,0,63 

.byte "in the output document. A window allows you to" 

.byte $16,6,0,73 

.byte "specify the starting and ending pages (inclusive) to" 

.byte $16,6,0,83 

.byte "take from the input, and the page number to place' 

.byte $16,6,0,93 

.byte "those pages AFTER. Click over the number to mi' 

.byte $16,6,0,103 

.byte 'the cusor to that value and change it.",$lb,0 
help*: .byte $1B. "C0HBINER will coabine different versions of geoWrite" 

.byte $16,6,0,43 

.byte "documents. Hen you create a new document, the" 

.byte $16,6,0,53 
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Transactor 



.byte "version is detenioed by the first ITO docuaent." 


Ida 


#Sff 






% 






.byte $16,6,0,63 




sta 


ovflag 


; don't know version yet 




: P : 


102$ 




.byte "You can coibine a Version 2.1 (froi GtOS 2.0 or" 


sta 


oldnev 


; this is new file 




ldptr 


fniisg, f nwisgl 


,byte $L6 r 6,0 r 73 




ldptr 


OQtm,rl0 






ldptr 


mpna, r5 




.byte "geoPubliah) 


docment with a Version 1.3 (free GECS" 


window 


newfilew 


;get naie for neu file 




ldptr 


writecl.rlv 




byte $16,6,0,63 




Ida 


rfl 






ldptr 


idita,fnawg2 


.byte "1.3). The result can either be a Version 1.3 n ,$0e,"0R",$0f cap 


n 






Ida 


#7 




.byte $16,6,0,93 




beq 


renenu4 


:.,-cancel- 




sta 


r7 




.byte "Version 2.1, 


, t $De 1 ,, Hote",50f,* though, that Version 1,3 cannot" cap 


K 






window 


filenw 


;get input filename 


.byte $16,6,0,103 




beq 


nendstf 


:..-disk- 




Ida 


rO 




.byte "handle sere 


Version 2.x (2.0 or 2,1) options, so" 


cap 


m 






cap 


13 




.byte $16,6,0,113 




beq 


outdrv 


;.. -drive- 




beq 


reaenu2 


;>.-cancel- 


.byte "these are dropped when conbiniag Version 2.x files" 


Ida 


outna 






*P 


K 




byte $16,6,0,123 




beq 


reaenui 


;..no nate selected 




beq 


newidisk 


;..-disk- 


byte "into a Version 1.3 file. w ,$lb,0 


ldptr 


outna, rfi 






dp 


m 




helpS: .byte $18, "Graphics 


included in any of the input pages are' 


;$: 


lookup 


rsee if file aready exists 




beq 


newidrv 


: . , -drive- 


.byte $16,6,0,43 




epi 


15 






ldptr 


mpm. r r0 


:open input file 


.byte "copied to the output," 


beq 


getidsk2 


:..doesn'T E3CST 




jsr 


vopen 




,byte $16,6,0,53 




jsr 


error 






ft 


error 




.byte "Ton cannot copy headers or footers fret an input" 


hoe 


zaml 


;.. other error 




bne 


reienu2 




.byte $16,6,0,63 




TS.±* 


replw 


,'aake sure can replace 




j« 


getvsn 


■get input file version 


.byte "Version 2.x 


docuaent* 


Ida 


rO 






bes 


getidsk 


;.. can't handle this version 


.byte $16,6,0,13 




cap 


II 






stx 


ivflag 


;save input version 


.byte 'CCMBMR wi] 


.1 handle either aultiple drives, and/ or" 


beq 


BJHSQl 


;..-no- 




bit 


oldnew 


; check if output decided yet 


.byti 516,6,0,83 




ldptr 


outna, rt 






bpl 


202$ 


;.. yes -everything set 


.byte 'input and oi 


itput frot different disks. You will be" 


i« 


delete 


;get rid of original 


r 








.byte 516,6,0,93 




getidsk2: 








sta 


ovsnl 


;else 'OLD' version is saae as 1st input 


.byte 'asked to insert the required disk when it is needed." 


ft 


initidrv 


: . .then proceed 




sty 


ovsnl*2 




.byte 516,6,0,103 




outdrv2: jap 


outdn 






iti 


ovflag 




.byte "Desk Accessories are always loaded from the disk* 


newodsk2: 








Isr 


oldnew 


:clr 'NEK' bit (still need to create one) 


.byte $16,6,0,113 




ft 


newodisk 




r 








.byte "which was ii 


] the drive COMBINER was loaded from. ' 


reienuJ: jap 


reaenu 




2025: 


jsr 


coun r .recs 




.byte $16,6,0,133 




• 








bit 


oldnew 




.byte $19," End of ELP Screens. ",$lb,G 


oldout: ldptr 


fnoBsg.fnwasgi 




bvc 


2035 


;.. old fill already 


■ 




ldptr 


outni,r5 




• 








helpptr$:.*ordhelpl 


; Pointers to each help screes 


ldptr 


¥ritecl,rlD 






stx 


oldiax 


;else set aax pages froa input type 


.word help2 




ldptr 


odskna, fnwisg2 




Ida 


164 


;!ft available graphic page is saae for either 


.word help3 




Ida 


*7 


application data type files 




sta 


oldpics 




.word help* 




sta 


r7 




' 








.word helps 




wind;* 


fileiw 


,-get old output file naue 


203$: 


jsr 


vciose 




aaxhelp: 


; (aaxhelp-heipptrs) is high index for screens 


lda 


rO 






Ida 


11 


;se: default start/stop as 1 to 1 pages 


r 




cap 


12 






sta 


frstipge 




.end 




beq 


reflenu2 


;.. -cancel- 




Ida 


pages 




■ END of $1CQNBIHEK 




cap 


16 






sta 


lastipge 








beq 


ne«odisk 


:..-disk- 




Ida 


oldpages 


: default is after last page 


$2COMBINER 


i - Second source file 


cap 
beq 


outdrv2 


;.,-drive- 


getuhe! 


sta 
e: 


aftpge 








leptr 


outnaij rO 






ldptr 


fpblk,rl0 


:set pointer for first page 


; S 2C0KBINSR - Ccabine wit 


iple geolrite docuaents into one. - Hick Vrtis 1/89 jsr 


vosen 






window 


where* 


; get lst/last/af ter pages 


i 




jsr 


error 






Ida 


rO 




.noeqin 


: these got defined in the 1st file 


bne 


[BMffld 


;. .bad open 




■cap 


12 




.include /COMBINER 


:Page zero £ SEOS definitions 


]sr 


getvsn 


:get version nuaber 




bne 


300$ 


;,.not cancel 


.tp 




bes 


z"i:;u 


;,, unsupported version 




jip 


:sr.enu 




■ 

.psect 




sti 


ovflag 


;save version flag 


300$: 


Ida 


to 


;make sure after last entered digit 


renenu3: jap reaenu 




jsr 


countrecs 


rget 1 pages 4 pictures 




ldx 


fpblk+4 




r 




stx 


olden 


;save values 




sta 


fpblk,x 




dobegin: jsr aer.us 


; close nanus 


sty 


oldpics 






ldx 


lpblk+4 




window begin* 


rget options 


sta 


oldpages 






sta 


lpblLi 




Ida rfl 




Ida 


to 


,-set W file flag 




ldx 


apblk+4 




sta raO 


;save selected option 


sta 


oldnew 






sta 


apblk,i 




cap 12 




jsr 


vciose 


■done for now 




ldx 


fpblk 


; convert values 


beq remou3 


;.. -cancel- 


initidrv: 








Ida 


fpblktl 




Ida odskdrv 


;see if current drive is saie as last output 


Ida 


idskdrv 


■aake sure list used input drive active 




jsr 


binary 




dp curdrv 




*? 


curdrv 






beq 


fperr 


;.,0 is bad 


beq savcesk 


;..yis 


beq 


getidsk 


;,, yes-no change needed 




bec 


chkfp 


: .go check for tax 


outdn: jsr nextdrv 


;aust be other drive (which will be NEXT) 


bne 


newidrv 


: ..need to take other (NEXT) drive current 


fperr: 


ldx 


#$83 


;' invalid first pig* 


J 




reaenu2: jap 


reaenu 




pgerr: 


jsr 


error 




savodsk: Ida curdrv 


;save ablua disk info 


* 








ft 


getwhere 




sta odskdrv 




newedisi: 






lperr: 


ldx 


#$64 


,- ' invalid last page' 


ldx IfrO 


,-get boot drive naie 


jsr 


newdisk 


;tell to insert new disk 




.byte 


$2c 


;BIT 


jsr drvnaa 




ft 


savodsk 


.-..go start process over 


aperr: 


ldx 


t$85 


;' invalid after page' 


ldy #15 




r 








inc 


frstipge 


/restore to what was typed in 


101$: Ida (rOhy 




newidisk ; 








bne 


pgerr 


; . .unconditional 


sta odikm.y 




ft 


newdisk 




chirp: 


dex 






oay 




>P 


getidsk 






cpx 


pages 




bpl 101$ 




newidrv: jsr 


nertdrv 


; setup next drive 




bes 


fperr 


; . .page is too big 


Ida #0 




getidsk: Ida 


curdrv 


;get current drive \ 




stx 


frstipge 


; save 


sta oldpages 


t.c old pages yet 


sta 


idskdrv 


;save drive t 




ldx 


Ipblk ' 


;saae process for last page 


sta oldpics 


:or pictures 


ldx 


IfrO 


:ge: disk nane of input disk 




Ida 


lpblkfl 




Ida raO 


;get ' 31SIK' option 


jsr 


dnnaa 






jsr 


binary 




09 *5 




ldy 


115 






beq 


lperr 


;..(} is invalid last page 


beq oldout 


;..'0kW oldgeolrite file 


102$: Ida 


Hi! 






bes 


lperr 




i 




sta 


idskn,y 






dex 
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cpi 


pages 






bcs 


lcerr 






cpx 


frstipge 






bcc 


lpcir 


;.. can't be less than first 




inx 








sti 


lastipge 






ldx 


apblk 






Ida 


apblkfl 






i« 


binary 






beq 


303$ 


;.. inserting it start 




bcs 


aperr 






dex 








cpx 


aidpiges 






bcs 


aperr 






ini 






303$: 


stx 

sec 


aftpge 






Ida 


lastipge 


calc \ pages being added 




sbc 


frstipge 






clc 








adc 


oldfeages 


:calc total resulting pages 




op 


oldnax 






bcc 


roouok 


; . .thn will fit 




ldx 


4$BC 


:"Too many pages" 




]K 


error 






jjy 


getidak 




rorak; 


Ldi 


#63 


; clear used flags for pictu 




Ida 


H 




206$; 


sta 
dex 


picsused.i 





sta 



600$: 



adc 
sta 
jsr 
ldy 
Ida 
iny 
sta 



dey 
bpl 

Ida 



601$: 



bpl 206$ 

; here to ^et pages fret input into buffer area 
papsin: ldptr bofbeg,ri2 .'buffer area is eapty 



Ida 


idikdrv 




ldx 


|[idskm 




ldy 


Jlidskm 




jsr 


chkdik 


'lake sure input disk Hunted 


heg 


reaanu5 


:,. cancel from disk nount 


ldptr 


input, rO 


:open the input file 


W 


vopen 




]sr 


error 




one 


reienuS 


;.. error in open 



sta 
iny 
Ida 

tax 
iny 
Ida 
ldy 
sta 
dey 
tia 
sta 
iny 
iny 
Ida 
sta 
cpy 
bcc 
Ida 
ldy 
sta 
clc 
Ida 
adc 
sta 
bcc 
inc 



chkuplvl: 



clc 



: here for the start of each page 



211$: 



ldx 


frstipge 




)sr 


vgoto 




jsr 


readpaoe 


:go get the page in 


cpx 


m 


■check for no buffer space error 


bne 


211$ 


; . .not that 


ft 


pagesoot 


:else need to output pages in so far 


i« 


error 




bne 


resenuS 


•..load failed 


Ida 


R 




sta 


backlvlf 


■as suae no backlevel challenges 


ldx 


ivflag 




COT 


ovflag 




beq 


torulerok 


: . .no ruler escape fix needed 


bcs 


toba&lvi 


: . .need to backlevel the input file 



adc 

sta 
Ida 
adc 
sta 
jsr 
imp 

backlvi: move* 
sec 
ror 
ldx 
cpx 
bcs 
sec 
ror 
ldx 



rl 

ri+1 

ID 

rl+1 

perforce 

#2+2+16-1 

(r4} r y 

(r4} r y 



6110$ 

117 

40 



(r4},y 



#26 
601$ 

»$10 

423 
(H).y 

r7 

#27-20 
r7 
chkopl-rl 

r7+l 



ra2 

tl 

rl 

ra2+l 

to 

r4+l 

uplvi 
rulerok 
ra3 . r4 



; going from lower input level to higher output level 
cpx #2 ; check for V2.Q as input 

bne vliv2i ;..oo->Vl.x to V2.x 
beg cnkuplvl ;..go chk for apieveling (2.0 to 2.1) 



603$: 
604$: 



torulerok: 



604$ 
backlvlf 

rulerok 



;M», IX r f B TABS 

•make roc« for ruler escape 



:add ruler escape 



(r4),y ;iake paragrph indent =left nargin 



(r4),y 

422 

(r4),y 



;0 justification /text color/ reserved 



;I don't know what this bit does 
;but geoffrite sets it on 

;add to end of buffer pointer 



;set pointer past escape 



;see if need to uplevel the ruler 
;set pointer to start of buffer 



backlvlf ,set 1st back level flag bit 

ovflag 

42 ; check output level 

603$ ,\.iust be 2,l->2,0 



;set flag as 2>x->l<x 
; check input version 



backlvlf 

ivflag 

12 

slidetabs ;.. going 2.0 to Lx (tabs values are OK) 

fl ; Never have 1.x input (would be l.i->l.i) 

fixinches :go adjust inch offsets 

123 



jap rulerok 



tobacklvl: 



cpx 

beq 

ldy 

jsr 

cpy 

bcc 

bit 

bvc 

; need to slide tabs up for 2.x to 1.x 
slidetabs: 



: check how far back level 
;..2»2.0 is done 



3* 


backlvl 




renenu5: jjp 


reaenu 




: xxust be from 71.x to V2.x 




t!xv2x: iiovew 


ra3,r4 


;need to expand starting i 


clc 






Ida 


el 




adc 


120 


'F3U3H past 1.x ruler 


sta 


rO 




Ida 


M 




adc 


40 




sta 


r0+l 




clc 






Ida 


■A 




adc 


127 


;W where 2.x needs 



607? 



Ida 
dey 
sta 
iny 
iny 
cpy 
bcc 
clc 



adc 
sta 
Ida 
adc 
sta 



11 

(r4),y 

(r4) f y 



121 

607$ 

e4 

427 

rO 

r4+l 

40 

rfl+1 



; don't bother with paragraph margin 



;nove FROM is just past V2.x escape 



58 



clc 




; move TO is just past TABS 


Ida 


r4 




■dc 


#20 




sta 


rl 




Ida 


r4fl 




ad: 


» 




sta 


rl+1 




jsr 


perfxove 




sec 




;back up ending address 


Ida 


r7 




sbc 


#27-20 




sta 


r7 




bcs 


rulerok 




dec 


rl+1 




rulerok: ldx 


ovflag 


; adjust past start of each page 


Ida 


131 


/assgne V2.x 


cpx 


42 




bcs 


300$ 


;..« 


Ida 


124 


;nust be VI .x 


300$: clc 






adc 


ri3 




sta 


N 




Ida 


ra3U 




adc 


#0 




sta 


r4+l 




• 

chrloop: jsr 


getchr 


;here to get input character 


beq 


toencoage 


;,.end of input 


cap 


116 




t«q 


tographic 


;.. graphic escape 


cap 


m 




beq 


ruler 


;.. ruler escape 


cap 


123 




dr5 


chrloop 


: ..not newcard escape 


btq 

• 


newcard 


;.. newcard escape 


toer.dpage; 






J"P 


endpage 




tographic: 






W> 


graphic 




r 

newcard: Ida 


§5-1 


; NEWCARD skips 5 chrs 


cnpr4: clc 




;add offset to rO 


adc 


e4 




sta 


r4 




bcc 


chrloop 




inc 


r4+l 




bne 


chrloop 


;,. unconditional 


ruler: bit 


backlvlf 


: check backlevel 


bvs 


rulerout 


;.. 2.x to 1.x 


bu 


rulerfix 


:.. 2.1 to 2.0 


Ida 


ivflag 


; check if same level 


op 


ovflag 




beq 


307$ 


; . .yes 


jsr 


uplvl 


;else say need to uplevel the ruler 


307$: Ida 


127-1 


.■RULER is T) characters 


bne 


bmpr4 


; . .unconditional 


rulerfix: 






ldy 


to 


;have already skipped the escape 


304$: jsr 


fixinches 




cpy 


423-1 


:see if to the end of tabs/margins/etc. 


bcc 


304$ 


; . . lore to do 


Ida 


127-1 


;all fixed 


bne 
• 


bapr4 


: . .go skip it 


> 
rulerout: 






sec 




: backup to start of ruler escape 


Ida 


H 




sbc 


11 




sta 


rl 


;that is the TO 


sta 


r4 


;will also be next character needed 


Ida 


r4+l 




sk 


10 




sta 


rl+1 




sta 


r4+l 




clc 






Ida 


:". 




adc 


427 


: start of ruler + length = FKK 


sta 


r0 




Ida 


rl+1 




adc 


40 




sta 


r0+l 








Transactor 





]« 


perfmove 






sec 




: shorten end of data also 




Ida 


i? 






sbc 


*27 






sta 


r7 






bcs 


308$ 






dec 


r7+l 




m 


ft 


chrloop 


; don't skip any acre character 


graphic 


: ldy 


13 






Ida 


U<),y 


: get graphic record niaber 




tax 








Ida 


picsused-64, 


x ; see if already referenced 




bne 


302$ 


; . . yes 




Ida 


oidcics 






OP 


#128 






bcc 


301$ 


;,,roou for at least 1 more 




ldx 


m 


;"Too many pictures" 




jll 


error 






» 


rerenu 




301$: 


inc 


oldpics 


: count record used 




sta 


picsus«d-64 


x :keep where stored 


302$: 


sta 


(r(),y 


; replace vith new record id 




Ida 


15-1 


; graphic escape is 5 bytes 




ft 


bopr4 


; . go skip it 



503$; 



; here at the end of each input page 

i: jsr fiextarea save end of this area i setup next 



IOC 


frstipge 


;biap to next input page 


Ida 


frstipge 




op 


lastipge 


;see if done yet 


beq 


pagesout 


;,. yes-write then out 


ft 


pageloop 


;else just go get another input page 



; here either when buffer area is full, or all input pages read 
pages out: 



ft 


seteoh 


net end of buffer flags 


ft 


vclose 


:done with input file (for now} 


Ida 


odskdrv 




ldx 


|(odskna 




ldy 


t'odskni 




ft 


chkdsk 


;aake sure output disk mounted 


beq 


reaenu6 


;..CMOL from mount 


bit 


oldnew 


; see if need to create output file 


bvc 


openold 


; . jo 


ldptr 


writeinfo r r9 


;else create om first 


Ida 


10 




sta 


rlO 




sta 


oldnew 


; file is now OLD 


ft 


save 




jsr 


error 




bne 


re«enu6 


;,. could not create file 


ldptr 


outnnrO 




jsr 


vopen 




Ida 


to 




sta 


xsave 




2105: jsr 


vapperd 


; extend vlir file to 127 entries 


inc 


xsave 




bpl 


210$ 




3" 


vclose 




openold: ldptr 


outnu.ri) 


;opec the output file 


jsr 


vopen 




ft 


error 




taq 


pageout 


;. .opened ok 


i« 


vclose 


terror -close output file 


rese.nu6: jip 


hhdb 





todowrite: 



DCS 


addotb 


; , .other pages added to the end 


sec 




;calc t chains to aove 


Ida 


oldpages 




sbc 


aftpc* 




tay 






Ida 


oldpages 


: idling in the middle of the original 


asl 


a 




tax 




;old end *2 is last used chain index 


Ida 


bufl+fl r x 


: slide left 2 bytes 


sta 


bufl+2 r x 




Ida 


buf 1+1, x 




sta 


buf l+3,i 




dex 






dex 




• 


dey 






bne 


503$ 




Ida 


#0 


;set this as empty chain 


sta 


buf 1+2, i 




sta 


bnfl+3,1 




ioc 


oldpages 


;+l to page counter 


ldx 


frstipge 


;see if this will be the last page to add 


inx 






cpx 


lastipge 




bcc 


todwrite 


; . .no -then II to write 


sec 




:else need to make sure last char is non- 


Ida 


r7 




sbc 


U 




sta 


rl 




Ida 


r7+l 




sbc 


to 




sta 


rl+1 




ldy 


to 




Ida 


|rl),y 




hi 


todowrite 


;..«u non-null 


Ida 


#S0c 


replace null with page skip 


sta 

1" 


(flJ.J 




w 


dowrite 


;..now do the write 



toaddlst; 



jit addlst 



; here for the start of each page to output 
pageout: jsr get area ; point to a used area 



SOU: 
500$: 



Ida 
op 

b«q 

ft 
Ida 

beq 



500$ 

vclose 
frstipge 

lastipge 
501$ 
pagesin 
text done 

aftpge 

oldpages 
toaddlst 



•.area has data in it 

;done with output for now 
:else see how we got here 

: ..we just finished the last input page 

;..we need to get more pages 

; . .we are finished with the text portion 



; check where adding 
;..lst page added to end 



addoth: 


ldx 
inx 


frstipge 


;see if this is last page to be 




cpi 


lastipge 






bcc 


tockwiite 


;.. no-then OK to write 




sec 




:must have a null at the end 




Ida 


i" 






sbc 


n 






sta 


rl 






Ida 


m 






sbc 


to 






sta 


rl+l 






ldy 


to 






Ida 


frl),y 






teg 


dowrite 


; . .already ends in null 




2T£ 


#$0c 






beg 


501$ 


;.. replace ending page skip wit 




inc 


rl 


;eise extend 1 char 




bne 


500$ 




500$: 


inc 


rltl 






inc 


r7 






bre 


501$ 






ioc 


r7+l 




5ul$: 


Ida 


10 






sta 


MM 






beq 


dowrite 


; . .unconditional 


addlst: 


ldx 


oldpages 






beq 


dowrite 


;„ no adjustment (no oldpages) 




dex 




;else find last good chain 




txa 








ft 


vgoto 


;set initial r/S 




ldptr 


tsbuf,r3 


net buffer for T/S 




ft 


follow 






jsr 


error 






beq 


505$ 






jsr 


vclose 


,* close the output file anyway 




i 3 ? 


rererj: 




505$: 


ldx 


buf0+l 


.-get index to last char 




Ida 


#$0c 


• replace with page skip 



sta 


buf;, t. 




ldx 


t((-2) 


; start 1 -2 so 2 inx's = 


502$: inx 




;find end of chain 


inx 






Ida 


tsbuf r x 


; check track 


bne 


502$ 


: .not zero., so not end of chain 


Ida 


tsbuH.x 


:get last T/S 


sta 


rl+1 




Ida 


tsbuf-2 r x 




sta 


rl 




ldptr 


buf0,r4 




jsr 


write 


[rewrite T/S 


dowrite: Ida 


aftpge 


;get page to write to 


jar 


writepage 




ft 


error 




beq 


303$ 




jsr 


vclose 




ft 


renenu 


'.save was bad 


303$: inc 


aftpge 


:next page to store to 


ft 


pageout 


;..go do another page 


1 

text done: 






ldx 


IW-1 


mow process the pictures used from input 


stx 


picinx 


net input i output indexes to {start- 1) 


Itl 


picoutx 




r 

; here to get input pictures 


from input 


picsin: ldx 


picinx 


;see if any pictures needed 


305$: inx 






cpi 


1128 




bcs 


topicsdone 


; . .none used 


Ida 


picsused.x 




beq 


305$ 


; . .this one not used [end test A 1st used) 


ldptr 


bufbeg,ra2 


; reset to start of buffer area 


Ida 


idskdrv 




ldx 


IjidsknL 




ldy 


fjidsknxi 




ft 


chkdsk 


:aake sure input disk mounted 


beq 


topicsdone 


: . .CAHCELed/not really done 


ldptr 


inpoi, rO 




jsr 


vopen 


:open input file 


ft 


error 




bne 


picerr 


; ..error on open 


; here to process each graph 


ic picture referenced in the input 


picloop: inc 


picinx 


/bump for next picture area 


ldx 


picinx 




cpx 


1128 




bcs 


picsout 


; , .end of pictures - wrap up last areas 


Ida 


picsused-64 


,i 


beq 


picloop 


; . .this one not used 


txa 




;X is input VLIR record ft 


j« 


vgoto 




jsr 


readpage 


;get graphics page in 


cpx 


til 


; check for out of rcca in buffer 


beq 


picsout 


; . .out of root, need to write what is there 


jsr 


error 




bne 


picerr 


,\. error writing 


ft 


next area 


; setup next area 


ft 


picloop 


; ..go do another 


topicsdone: 






ft 


picsdone 


;..just passing through 


: here when buffer files or 


end of pictures form input 


picsout: jsr 


seteob 


: set end of buffer & reset pointer to start 


jsr 


vclose 


;done with input file (for now) 


Ida 


odskdrv 




ldx 


f [odskruL 




ldy 


f]odskruL 




jsr 


chkdsk 


:make sure output disk mounted 


beq 


picsdone 


;..CWOLed/not really done 


ldptr 


outran, rQ 




jsr 


vopen 




ft 


error 




bne 


picerr 


; . .error 



; here to process each picture from buffer 
picout: jsr getarea .setup pointers for a used area 
bne 304$ ;..got some data to do 



]ir 


vclose 




ldx 


picoutx 


•else see if done 


cpi 


1128 




bcs 


picsdone 


; . .done with all pictures 


ft 


picsin 


: . .more graphics to read in 



Volume 9, Issue 6 



59 



3C4S inc 


picoutx 


;biap output counter 


ldx 


picouti 




Ida 


picsiised-64. 


i : get new record 1 


beq 


304$ 


;..skip to one that was used 


jsr 


writepage 


; write it out 


3" 


error 




beq 


picout 


; . ,go do another 


picerr: jsr 


vclose 




picsdone: 






j* 


reren'j 


;let the process start again 



: Start of subroutines 

: check to take sure correct disk is aounted 

chkdsk: 



Stl 


ral 


.save ptr to name 


sty 


ral+1 




tax 






tic 






adc 


#A -8 




sta 


swpdskd 


;save drift letter 


txa 






OB 


curdrv 


; check against current drive 


beq 


chkdskm 


;,. don't need to open 


jsr 


drvset 





recfckdsk ; 



jsr opndsk 



chkaskna: 



112$: 



swpdsk: 



Idi 
jsr 
ldy 
Ida 
op 
hue 
dey 

fcfl 

rts 

window 

Ida 

ssp 

bne 

rts 



4[r0 

drvnai 

IIS 

(r0},y 

(raihy 
svpdsk 

112S 

swpdskw 

rfl 

12 

rechkdsk 



;..ttedto snap disks 



; correct mounted/return (HE set) 
;put op window to swap the disk 



,- . . not CAKCEI/venfy disk name 
r . . return with BQ set if CHOL 



; advance tc next drive nuiber (8 or 9) 

nextdrv: Idi curdrv ;get current drive 4 



bog 


errslp 


;..look some lore 


inc 


rl2+l 




DM 


errslp 


; . .unconditional 


errfod: inc 


rl2 


; skip past code 


bne 


115$ 




inc 


rl2+l 




115$: Ida 


liscerr 


.in case needed 


jsr 


ascii 




sta 


aiscerrd 




stx 


iiscerrd+1 




window 


erronr 




errrts: rts 






; convert binary maber in I 


reg to tvo ASCII digits 


deciiial: Ida 


tc 


."this is not 'elegant'', but it 


cpx 


to 




beq 


ascii 


;0 is input 


117$: clc 






sed 






adc 


13 




eld 






an 






bne 


117$ 


; fail through to ascii 


; convert value 


in A reg to two ASCII hex characters (in XiAJ 


ascii: pba 






]" 


toascii 




tax 




;lst digit in X 


pla 






Isr 


a 




Isr 


1 




lsr 


1 




1st 


a 




toascii: and 


HI! 




ora 


#S30 




<*> 


m 




bec 


116$ 




adc 


U 




116$: rts 






; set pointer froi I/I and call fflNDOR routine 


xywindow: 






Btl 


ri 




sty 


rO+1 




n 


viadov 





cntpics: Ida 


pics i 


same process nth pictures 


op 


#126 


op to 64 pics in either 


beq 


endcount 




jsr 


vgoto 




tya 






^ 


endcount 


..end of pictures 


inc 


pics 




DM 


aitpics 


.. unconditional 


endcount: 






ldx 


tax 




ldy 


pics 




Ida 


pages 




rti 






; redraw CdffilM screen when IfMDOS/MniU needs to restore it 


repat: Ida 


openpat 


get pattern used fros opening screen 


]K 


setpat 


take current 


jsr 


pfill 


that will restore screen 


Ida 


r2+l 


died bottoa 


op 


•[ (114+1) 


to see if undoing shadow of help window 


bes 


100$ 


. .yes-need to redraw title box 


rti 




else just return 


100$: ; ac 


redotitle 


redraw title box 



; get next character fros input buffer area 

getchr: ldy 40 ;get next text character 



111$: 



rnx 

cpx 
bee 
ldx 
txa 

jsr 

W 



HO 
111$ 

te 

•drvset 
opndsk 



;biBp to next 

;..ok 
;back to 6 

lake current 
;read in case 



; get the version number for the directory entry £ check if supported 
getvsn: icvew direntryfl9.rl ;get t/s of info sector 



; allow user to insert a new disk 

aewdisk: Ida curdr? :get current drive 



clc 
ad: 
sta 
window 

ft 



4 1-8 

r.ddrive 

newdisiw 

opndsk 



;put drive letter in window 
: open/get disk naue 



; calc length of data to move and the call HOVTMIa 
perzBore: 



sec 

Ida 
sbc 

sta 
Ida 
sbc 
sta 
ft 



:calc number of bytes tc move 



r3 
r2 
r7+l 

rfl+1 
r2+l 
lovedata 



; :hec* for error and put up window with decoded message if so 



error: txa 

beq errrts 

sta liscerr 

ldptr erntblrl2 

errslp: ldy 40 

lia liscerr 

(itf). y 

errfod 



chk for error 
..no error 

so always finds sosething 



CB> 

beq 
errmskp: my 
Ida 
bne 
tjl 
sec 
adc 
sta 



{rl2),y 

•rnskp 



cl2 

rl2 



■round it 

;not foond/find end of sessage 



;skip over end also 



idptr 


bof0,r4 


;set where to read it i 


jsr 


read 




ldx 


11 


: assume 1.x 


Ida 


bufWO 


:gtt Va 


ldy 


bufO+92 


;get Va.y 


op 


it 




beq 


vsnok 


,\.YLi 


in 




: assume 2.1 


op 


i'l' 




bne 


unsvsn 


r..not VI. x or V2.x is err 


cpy 


tv 




bee 


vsnok 


r..V2.0 


inx 




;xtust be ¥2.1 or higher 


vsnok: clc 




:set OK flag 


rts 






unsvsn: ldx 


Ml 


;tell bad version 


jsr 


error 




jsr 


vcloie 


: close file (can't use it} 


sec 




;set BAD flag 


rts 






; count the nuiber of text 


pages i picture pages in the 


count recs: 






Ida 


464 


; assume VI, x [U nax) 


epi 


41 




bee 


200$ 


;..t1.i 


Ida 


461 


;else 61 sax for 72.x 


200$: sta 


max 




Ida 


40 


; clear counters 


sta 


pages 




Ida 


•SI 




sta 


pics 




cntwoes 






Ida 


pages 




cip 


max 


;check for full 


DCS 


cntpics 


;,ioll 


jsr 


vgoto 




tya 






beq 


cntpics 


: , .end of text pages 


inc 


pages 




bne 


cntpages 


: . .unconditional 





Ida 


M.] 






inc 


r4 


:bump for next time 




bne 


400$ 






inc 


r4+l 




400$: 


ldx 


r4+l 


;see if this was last character 




cpx 


r7+l 






bne 


401$ 


,-., can't be, return with KE set 




ldx 


r4 






cpx 


r7 




401$ 


rts 






; upgrade ruler to V2.1 




upM: 


Ida 


ovflag 


; check for V2.1 output 




op 


13 






bee 


611$ 


;..no 




ldy 


10 




610$: 


Ida 


(r4) r y 






emp 


4[(480-l) 


; check for old max right (7. 2" was $ldf) 




bne 


612$ 


;,,no problei 




Ida 


l[480 


; fudge to even 7.2 inches 


612$: 


clc 




;in VI. x or 72.0, pixel is 8 80 in 72.1 




adc 


m 






sta 


M,f 






iny 








Ida 


(r4) r y 






adc 


40 






sta 


(r4),y 






iny 








cpy 


#2+2+16+2+1 


;KK+IH+9 tabs+pi 




bec 


610$ 




611$: 


rts 






; setup 


the IHPDT portions of the window asking for page numbers 


whereset: 








ldptr 


wboxes,r0 






jsr 


obexes 






Ida 


t[ lapclk-wblk) ; setup the INPUT portions of where window 




ldx 


aftpge 






jsr 


wherein 






Ida 


4[(lpblk-wblk) 




ldx 


lastipge 






j« 


wherein 






Ida 


t[(fpblk-wblk) ;note that first page is last 




ldx 


frstipge 






ft 


wherein 





: display values in where window i save pointers 
wherein: sta widxsave ;save for index offset 



clc 




;calc real address 


adc 


l-;*ik 




sta 


r0 




Ida 


tiwblk 




adc 


40 




sta 


r0+l 




jsr 


decimal 


;convert \ to ascii 


ldy 


widxsave 




sta 


m t j 





60 



Transactor 



tia 
iti 

clc 



adc 
sta 

Idptr 

ft 

Ida 
sta 
Ida 
*ta 

Ida 

sta 



wblx+l,y 

;calc pixel line to display on 

pline 
rl+1 

(64+10), rll ;DKF-DB-LZFT+8 

dsptxt 

rll ;move column to where save rill find 

com 

rlltl 

cursx+1 

12 

inplen 



;have 2 chrs displayed 



save pointers from current INPUT area in where window 



svwhirt: Idi 

Ida 



Ida 
sta 
Ida 
sta 
Hi 



widxsave 

inplen 

mblk4fx 

curst 
iblk+5,1 
cursx+1 
iWk+6,i 



,-get offset into buffer area 
;save variable stuff 



deck; Ida tl :set C« code 

.byte pc 

docancel: 

Ida 12 :set CHOI code 

sta winced 

jep clswin : close the nindow 

; handle click on DRIVE box in various windows 

dodrv: Ida I $80 : return $80 free custom box 

sta winced 

jes clswin 

; handle click on CREATE box in begin window 
docreate: 

Ida #$31 

sta winced 

jep clsrio 

i 
i 

; fii tabs, etc. when going fron V2.1 to other versions 
f lunches: 



sta 


r2+l 




movew 


ra3,r7 




imp vsave 

: advance from one buffer 


area to the next 


nextarea: 






Ida 
ldy 
sta 
tax 




10 
<ra2),y 


;get pointer 

■save at sta 


Ida 


i7+l 




iny 
sta 
sta 


(ra2),y 
ra2+l 


;end becomes 


stx 


ra2 




rti 







sty 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
tyi 
clc 
hi: 
sta 



.save table index for save 

; restore pointers from the table 



; advance to requested input area in where window 
nit where: 

vidxsave 

wblxH,y 

inplen 

wblx+5,y 

CUTS! 

wblk+6,y 
cursx+1 
wblk+3 r y 
cursy 



adc 

sta 

ft 



lleMk 

string 

)]wblk 

to 

string+1 
prompton 



:calc address of string buffer 



convert characters in X/T to a binary number 



binary: 



150$: 



bcerr: 



tay 

bne 
txa 

ldx 
sta 
cpx 
bec 
cpx 
bes 
txa 
and 
asl 
sta 
asl 
is 1 
adc 
sta 
Ida 

of 
bec 

CfflD 

ft 

bes 
and 

ad: 
tax 
its 

sec 
rts 



150$ 

I'd' 
rl 

I'd' 
bcerr 

bcerr 

tsof 

a 

3 

r0 
ri 

rl 

t'0' 

bcerr 

W+l 

bcerr 

l$0f 

r0 



: check if 2 digits 

,\.yes 

;else move 1st digit to 2nd 

;and replace 1st with 

:save 2nd digit for now 

r , .bad digit 



;*2 

;*4 

;*8 
;f*2=*10 



; return w/ carry clear 
:set error flag 



; handle click on first page block in where window 

dopglst: ldy ti(fpblk-wblk) 

dopg: j« svwhere -save current pointers 

je| nxtwhere :nove to new area 
; handle click on last page block in where window 
dopglst: ldy *[(lpblk-wblk) 

bne dopg ;.. unconditional 

; handle click on after page block in where window 
dopgaft: ldy U(apblk-wblk) 

bne dopg ;.. unconditional 

: handle click on OK box in where window 



sec 




need to shirt tabs down 




iny 






Ida 


Mil 






sta 


(ra2),y 




sbc 


t[« 






ldptr 


bufbeg,ra2 


: reset pointer to start of buffer 


sta 


rS 






rts 






tax 




save copy for testing 


; setup pointer; 


t for an area 


to read data into 


iny 






getarea 


clc 




;set pointer to data portion 


Ida 


(r4|,y 






Ida 


ri2 




and 


m 


in case of decimal tabs 




adc 


12 




sbc 


m 






sta 


rai 




ks 


m 






Ida 


raltl 




Ida 


10 


if < 0, sake C- 




adc 


III 




tax 








sta 


raJtl 




605$: cap 


f]430 


check if still too big 




ldy 


SO 


:get end of area pointer 


bne 


607$ 






Ida 


(ra2Ly 




cpx 


l[«0 






sta 


r7 




607$: bec 


608$ 


..size is ok 




tax 






ldx 


11479 


else this is max size 




iny 






Ida 


m 






Ida 


(ra2) r y 




603$: stx 


r5 






sta 


r7+l 




sta 


rf+1 






sta 


n2+l 


:set pointer to start of next area 


T 1 "■ ■) 

Ida 


w -v ' a- 

($80 


put back decimal flag if there before 




stx 


ra2 




bit 


backlvlf 


r # 

only if result is 2.0 


r 


rts 




;0=end of areas (else ne) 


bvc 
Ida 


m 


..2.0 

discard if result=l.x 


opentitle: 


u rt 




606$: and 


f i 4 






jsr 
.byte 


grpnc2 
$05 


: opening screen 


ora 


r54l 

1 11 




openpat 


.byte 


24 


ipattern used to clear the screen 


sta 


(r4),y 






.byte 


$01 


: erase screen 


day 








.word 







Ida 


r5 






.byte 







sta 


m,i 






.byte 


$03 




iny 








.word 


320 




iny 








.byte 


199 




rts 








byte 







; read in a page of text or grj 


iphics to next available buffer area 


redotitle: 






readpage: 








ft 


grphc2 


; done this way so REFAT can redraw title 


clc 




read in a data page 




.byte 


$05 r 9 


: pattern fill title area 


Ida 


ra2 


leave room for pointer to end of area 




.byte 


$01 




ide 


12 






.word 


8 




sta 


r7 


where to start leading 




.byte 


176 




sta 


ra3 


save copy of start of data portion 




.byte 


$03 




Ida 


ra2+l 






.word 


312 




adc 


to 






.byte 


198 




sta 


m 






.byte 


$06 




sta 


ra3fl 






.word 


20 




sec 




calc bytes available 




.byte 


190 




Ida 


t(bufend 




.byte 


$18, $20,$1», "Combiner VI. r,$lb, $16 


Aw 

sbc 






.byte 


1 Coobine 


geo&rite files. '\$lb,3 


vwv 


* 






rts 






sta 


r2 




m 








Ida 


tlbufend 




r 

mainmem 


.: 






sbc 


r7tl 






.byte 







sta 


r2+l 






.byte 


14 




ft 


Icbain 


load the series of sectors 




.word 







■ 








.word 


120 




; write a page 


of text or grapl 


lies f rot buffer area 




.byte 


4 


:i menu options 


uritepage: 








.word 


geos 




jll 


vgoto 


position to write new page 




.byte 


$S0 


; submenu 


sec 








.word 


geosmenu 




Ida 


r7 


calc bytes used 




.word 


done 




sbc 


ia3 






.byte 


$80 




sta 


r2 






.word 


donemenu 




Ida 


m 






.word 


begin 




sbc 


raJ+l 






.byte 


500 


; flash i run 



Volume 9, Issue 6 



61 





.vord 


dobegin 




.HOW 


help 




.byte 


$00 




.word 


dabtlp 


gws: 


.byte 


"GEOS 1 , G 


done: 


.byte 


"DoDe\D 


begin: 


.byte 


"Begin", 


help: 


.byte 


"Heip'.O 


■ 

geoaer 


ii: 






.byte 


14 ; start below aainnenu 


phjfc; 


.block 


1 ;beight depend* on ♦ D.A.'S 




.word 







.word 


75 


ge»pts: 


.block 


1 * C.A. 3 - 1 + 530 




.void 


info 




.byte 







.word 


doinfo 




.word 


dul 




.byte 







.word 


dodel 




.word 


dan2 




.byte 







.word 


dodri 




.void 


m 




.byte 







.word 


doda3 






dul 




.byte 







♦word 


doil 




.wrd 


du5 




.byte 







.word 


dcdaS 




.word 


dtni 




.byte 







.word 


dodafi 




word. 


dui7 




.byte 







.word 


d«U7 




.word 


dajiB 




.byte 







.word 


dodafi 


info: 


.byte 


'CCMBIKR Info", 


iafcw: 


.byte 


m 




■byte 


$Ob,10,X4 




.word 


mfoel 




.byte 


$Gb,10,35 




.word 


infoetf 




.byte 


$0b,lQ,H 




.word 


inioe3 




.byte 


S0b,10,65 




.word 


ULfQ04 




.byte 


50* 




.byte 





irfsiL 


.byte 


Jii/aw»',sib^i8 r r wi.r r (i 


infoetf 


■byte 


"licnolit J. Vrtis",0 


lofoi3 


.byte 


"5563 Pinetree Si. "J 


infcerf 


.byte 


'Keatiood. MI 49508", 


doom 


in: 






.byte 


11 




.byte 


14+14+11 




.void 


28,75 




.byte 


SIM 




.word 


quit 




.byte 







.word 


rtitit ; reload desktop 




.word 


geowrite 




.byte 







.word 


dogeowrite 


quit: 


.byte 


Wrl 


gewri 


te: 




4 


.byte 


'EOHITT.O 


begin* 


: .byte 


$61 ; initial options free ' 3E6IB" 




.byte 


$0b,60 r 64l2 




.word 


create! 




.byte 


?0b, ID, 40+12 




.word 


sperm 




.byte 


$&b, 60 ,74+12 



.word 
.byte 
word 

byte 



createm: 

opei-i: 

cancels): 

createfcex 



creategph 



byte 
byte 
byte 



word 
word 

byte 
word 



byte 
byte 

byte 
byte 
byte 
byte 
.byte 
.byte 
.byte 
.byte 
.byte 



drivebox: 



drvgraph : 



.word 
.word 
.byte 
.word 

.byte 
.byte 



.byte 
.byte 

.byte 

.byte 
.byte 

.byte 
.byte 

.byte 
.byte 
.byte 
.byte 
.byte 
.byte 

filenw: .byte 
.byte 
.word 
.word 
.byte 

fnwnsgl: .block 
.byte 
.word 
.byte 

fmonsg2: .block 
.byte 
.byte 
.byte 
.byte 

drvopcl: .byte 
.byte 
.word 
.byte 

fnoisg: .byte 

fniasg: .byte 
|: .byte 



newdiskw: 

.byte 
.byte 
.word 
.byte 
.byte 

r.dfisg: .byte 



cancel* 

512,1,6 ;-create- 

createbox 

$05,1,40 :-open- 

$02,1,74 ;-caneel- 



$18, "new geoNrite file", 

"existing geolrite file\Q 

'and go to MainMenu",$lb,Q 



creategph 



6,16 

docreate 



nddrive: .byte 0,*:",$lb,0 



newfilew: 



drvopt3; 



m.Ht 

$04, $00, 
$00, $03, 
$98 r $lf, 
$33, $66, 
$63, $33, 
$98, $19, 
$33, $66, 
$3*,$e3, 
$04,500, 
$05,Sff 



$B0,$04,$0O,$B2,$O3,$80 
SU3.S03.5af.53D, SCO, SCO 

S9a,ScO.SOO.$0O,$60,$O3 

$9e,$3c,$fl,$e3,$98,$lc 
$63.$33,$98,$18,$33,$3e 
$98,$l&,$3f,$66,$63,$f3 
$30, $66, $63, $03, $98, $d8 
$63,$33,$Bf,$98,$le r $3e 
$8O.$O4,$0O,$B2 r $03,$80 
?81,$03 1 $D6 l $ff,$81,$7f 



nfnsg2: 
odskm: 



repU: 



.byte 

.byte 

.word 

byte 

word 

byte 

byte 

byte 

byte 

byte 

word 

byte 

byte 

byte 

block 

byte 



replm: 



errorw: 



drvgraph 


6,16 
dodrv 

KWrMi 

$80, $04, $00, 
$80, $04, $00, 

$80,$f8,$00, 

$80 ( $cc,$00, 

$80,$c6,$fd, 

$80,$c6,$e0, 

$BO,$c6,$cO, 

$80,$c6,$c0, 

$80,$c6,$c0, 

$80,$cc,$c0, 

$80,$f8,$c0, 

$e2,$02,$01 

$80, $04, $00, 

$06,$f£ 

$01,$7f,$05, 



ernntnl: 



$fe 

$82, $03 
$b7,$03 
$c0,$00,$03 
$00, $00, $03 

NMtattt 

$d9,$bl,$03 
$d&.$b3.$03 
$cf,$3£,$03 

$cf,$3» ( $03 
Sc6,$33,$03 
$c6,$le,$03 

$01, $03 
Off 



aiscerr: 
niscerrd: 



swpdskw; 



;non-std window 
:stdheigfat+10 



•open- 



$01 

40,145 

72 

261 

$0b,2,9 

2 

$0b,130,19 

hmsq 

S0b.. 130,29 

2 

$05,17,34 

$06,17,52 ;-disk- 

$02,17,88 ,-cancel- 

$10,4,14 ; filename list 

;$12=-driTe- 

17,70 

drivebcx 



$18, $19,. "Select geolrite output file. ",$ib, $18,0 

$18, "Select geolrite input file." ,Q 

"Ondisk:'\$lb,0 



$81 
S0b.10.30 



swpdstafil 
$wpd$ka2 
swpdskd: 

1 

wherew: 



$01,17,78 ;-ok- 



$18, "Insert new disk in drive 



wwasgl: 
wwtsgl: 
ww«g3: 
wwisg4: 

p 

wboxes; 



$81 

$0b,8,15 

ntagl 

$0b,8,30 

nrasg2 

$02,17,78 ;-cancel- 

$06,17,42 ,-disk- 

$0d, 8, 50.rl0.16 

;$12=-drive- 

17,60 

drivebox 



$18, "Enter name of new geoWrite file.' ,0 

'On Disk: ",$lb 

16 

I 

$81 

$Ob,10,30 
repli 
$0b,10,SO 
outrun 

$03,17,78 ,-yes- 
$04,1,78 ; -no- 
il 
$18, "File exists, OK to replace file:",0 

$60+2 

$0c,10,32,rl2 
$01,17,72 ;-ok- 


; table of error codes and aessages 
$80, $18. 'Cabined file has too uny pages, ",$lb,0 
$81,$lB,'Coibined file has too nany graphics . " . Sib, C- 
$82.$18,"Onm|ported geoHrite Version. \$lb,0 
S83, $18, "First page niaber is invalid. T ,$ln,0 
S84.S18. "Last page niebei is invalid. ",$lh,0 
$85, $18, "After page nunber is invalid. p r $lb,0 
$O3,$18,"Diskfuir,$lb,0 
$26, $18, "Write protect on%$lb,fl 

block 1 

byte $18, "Disk Error: " 

block 2 
byte $lb,0 

byte $81 
byte $0b, 10,32 
word swpdsknl 
byte $0c,10,47,ral 
byte $0b,10,62 
word swpdskm2 
byte $01,17,78 ,-ok- 
byte $02,1,7B ; -cancel- 
byte 

byte $18, H Please insert disk:",$lb,0 



e 

byte 
word 

byte 
word 
byte 
byte 
byte 
byte 

byte 

byte 
byte 
byte 

byte 
byte 
byte 
byte 
byte 
byte 
byte 



byte 

block 

byte 

byte 
byte 
word 



byte 
word 
byte 

word 
byte 
word 
byte 
word 
byte 
byte 
byte 
byte 
byte 



$18, T In Drive: * 
1 

KM 

S81 

$13 rcall user routine first 

whereset ;this sets up ICON boxes 

$0d.l0,14-2,rl0,2 

$0b,43,20-2 



$0b,43,43-2 
vtzsql 
$0b,43,66-2 
wwi$g3 
$0b, 43,74 





$18, "First page of input to use.*,0 
"Last page of input to use . " , 
"Place input after this page ' I 
$lb r "{Use T to place at start. J" r 



byte 5 



;5 boxes in the table 



62 



Transactor 



pgbox: 



okbox: 



cancelbox 



writecl: 



writeinfo 



ovanl: 



.word 


64+16 ;put mouse in OK box 


.byte 


32+88 


.word 


pgbox 


.byte 


8+1,32+8 


.byte 


3,16 


.word 


dopglst 


. word 


pgbox 


.byte 


8+1 , 32+32 


.byte 


3,U 


.word 


dopglst 


.word 


pgbox 


.byte 


8+1 , 32+56 


.byte 


3,16 


.word 


dopgaft 


.word 


okbox 


.byte 


8+1,32+78 


.byte 


6,11 


.word 


dook 


.word 


cancelbox 


.byte 


8+17,32+78 


.byte 


6,16 


.word 


docancel 


.byte 


3. fa 


.byte 


220+4, 14,128+3,580, $00,501 


.byte 


3,$ff 


.byte 


$05,$ff,$82,5fe,$80,$04,500,$82 


.byte 


$03, $80, $04, 500, $b8, $03, 580, $00 


.byte 


Sf8,$c6, $00,503, $80, $01, $8c,$cc 


.byte 


500, $03, $80,501, $8c r $d8,$00, $03 


.byte 


$80,$01,$8c,$fO,$00,$03,$8G,$Ql 


.byte 


$8c,$e0,$00,503,$80,$01,$8c,$f0 


.byte 


$0Q,$03,$BO,$01,$8c,$d8,$QO,$03 


.byte 


$8Q,$QU8c,$cc,$00 r $G3,$80,$Q0 


byte 


5f8,$c6 r $00,503,$80,$04,$00,$82 


byte 


$03, $80, $04, $00, $81, $03, $06, $ff 


.byte 


$81,$7f,$05,$ff 


.byte 


$05,$ff,$82,$fe,$80,$04,$0Q,$82 


.byte 


$03,$80,$04,$00,$b8,$03,$87,$cG 


.byte 


$00,$0G,$00,$e3,$8c 1 $60,$00,$00 


.byte 


$Q0,$63,$8c,$07,$9f,$le,$3c,$63 


.byte 


$8c,$0c,$dd,$b3,$66,$63,$8c,$07 


.byte 


5d9,$b0,$66,$63,$8c,$0c,$d9,$b0 


.byte 


$7e,$63,$8c,$0c,$d9,$b0,$6Q,$63 


byte 


$8c,$6c,,5d9,$b3,$66,563,$87.,$c7 


byte 


$d9,$9e,$3c,$63,$80,$04,$GQ,$82 


byte 


$03, $80, $04, $00, $81, $03, $06, $ff 


byte 


$81,$7f,$Q5,$ff 


byte 


"Write Image" ,0 


word 


outnm 


.byte 


3,21,580+63 


byte 


$ff,$ff,5ff,$8Q,50Q,$01,$8f,$ff 


byte 


$01,$88,501,$01,58b,$ff,$cl,S8a 


.byte 


$00,$41,$8a,$£f,$fU8a,$80,$ll 


.byte 


$8a,$8e,$ll,$8a,$80,$ll,$8a,$bf 


.byte 


$91,$8a,$80,$ll,$8a,,$9f,$ll,$8a 


.byte 


$8Q 1 $ll,$8a,$bf,$91,$8e,$8Q,$ll 


.byte 


$82, $bf, $91, $83, $80, $11, $80, 580 


.byte 


$ll r $80,$ff,$fl,$ff,$ff,$ff 


.byte 


$83, $07, $01 


.word 





.word 


$ffff 


.word 





.byte 


"Write Image V" 


.byte 


"?.?", 0,0, 0,0 


.byte 


"by: Combiner VI. 0% 0,0,0 







byte 


"geoWrite V?.?", 0,0,0,0 




word 


1 


;used by V2.x 




byte 









word 


0,0,768 


wblk: 






;save blocks for each INPUT data 


fpblk: 


byte 


"X) 


c\ 0,32+14-2 




block 


1 


;$87cf 




block 


2 


;$84be-84bf 


lpblk: 


byte 


"X) 


t\ 0,32+38-2 




block 


3 




apblk: . 


byte 


"XJ 


t\ 0,32+62-2 




block 


3 




dmyx: 


block 


23- 


-(dmyx-wblk} ;padding to 23 bytes 


inpnm: 


byte 









block 


16 




outnm: 


byte 









block 


16 




idsknm: 


block 


16 


.disk name of input disk 




byte 







dads km 


block 


16 


;disk name of D.A. disk 


■ 


byte 







t 

patch; 


block 


30 


; program patch area 


< 

picsused: 


.block 




S4 ; table to convert input picture f to output 


idskdrv: 


.block 




; drive f of input disk 


odskdrv: 


.block 




; drive # of output disk 


dadskdrv: 


.block 




; drive # Of D.A. disk 


xsave: 


.block 




;temp save area for x reg 


picinx: 


.block 




: index into input picsused 


picoutx: 


.block 




; index into output picsused 


ivflag: 


.block 




; input version flag (0,l,2,3=none,l.x,2.0,2.1) 


ovflag; 


.block 




,• output version flag 


oldpages ; 


.block 




;| chains in output file 


oleics : 


.block 




;# pictures in output file 


oldmax: 


.block 




;iax # pages available in output file 


oldnew: 


.block 




. ;00=old output/ff=new output /7f=need create 


max: 


.block 




,used by count recs 


pages : 


.block 






pics: 


.block 






frstipge: 


.block 




; 1st page to start with 


lastipge : 


.block 




;last page to merge 


aftpge: 


.block 




; merge after this page 


helpidx: 


.block 




; help screen index 


backlvlf; 


.block 




;0D=nonnal; $80=2.1->2.0; $c0=2.x->l.x 


widxsave: 


.block 




;save of where window index 


danl 




.block 




7 


dan2 




.block 






dan3 




.block 






dan4 




.block 






dan5 




.block 






dan 6 




.block 






dan™ 




.block 






dan 8 

p 




.block 






bufbeg: 






; start of buffer area 


bufend 

< 


^^ 


$80C 


0-2- (27-20) ; allow room for eob flags + ruler exp 


* 

■ 


end 






; ENI 


) of $2C0MBIMR 





%COMBINER - Linker statements for Combiner 

; ^COMBINER - link statements for geoWrite Combiner - Nick Vrtis - 1/89 

.output combiner 
.header $HCOHBINER.rel 
seq 

.psect $0400 

$lCOMBINER.rel 

$2C0HBINER,rel 



□ 
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Clean Machine Language Screens 



Techniques for text output routines 



by Bill Brier 

Displaying text on the screen is the most common of program 
activities and is usually one of the first things learned by 
beginning programmers. Those moving up from BASIC to 
machine language may initially Find it somewhat difficult to 
print attractive screen displays. The handy PRINT statement 
and the companion tab and SPC formatting commands vanish 
once the realm of the BASIC interpreter has been left behind. 

Fortunately, the freedom of expression inherent in machine 
language makes it possible to write custom versions of PRINT. 
Using some simple programming techniques, you will be able 
to handle text output to the screen with ease, and at the same 
time realize a tremendous increase in display speed. So, if you 
are ready to learn, please read on! 

In describing some of the techniques I've learned, Til as- 
sume that you know what an assembler is and how to use 
one. My examples will be given in the MOS Technology stan- 
dard assembler syntax supported by the Commodore 64 as- 
sembler and the C-128 Developer's Package HCD65 assem- 
bler. Some of this stuff may be old hat to experienced ma- 
chine language progammers, but even they may find some- 
thing useful here. 

Displaying text strings 

Let's start with something simple. In BASIC, you type the 
command print "text string" and the interpreter obediently 
prints text string for you. BASIC figures out where in 
memory (RAM) the text is located, the number of characters 
to print and so forth. The price for this convenience is speed 
(a lack of it). 

In machine language, there isn't an interpreter to figure out 
where the string is at and what to do with it. So, you have to 
make your own PRINT statement. The first thing to consider 
in designing your own version of PRINT is how to determine 
the length of the string. This is readily handled by terminat- 
ing the string with a zero ($00) byte. Fortunately, the Com- 
modore screen editor considers the null byte to be... well, 
nothing as far as printing goes. So, to store the text string 
"text string ,, in memory, you would code as follows in your 
assembler: 



string .byt 'text string' , 

When the assembler parses this line it will generate bytes that 
are the PETASCII equivalents of the string. Immediately follow- 
ing the string will be the null byte. We can output the string 
with a simple loop: 



print ldy #0 



; starting string offset 



printl Ida string, y ; fetch byte from text string 
beq print 2 ;the zero byte means we're done 



jsr bsout 

iny 

bne printl 



print2 rts 



this kernal routine is located 

at $ffd2 

point at next character 

do it again 

; exit 



The Kernal BSOUT routine outputs the character in the micro- 
processor accumulator (.A register) to the current output 
device. Bsout is 'non-destructive' in that it leaves the .A, .X 
and .Y registers unchanged. It normally exits with the carry bit 
cleared in the status register. By the way, the above routine 
works because the act of loading .A with a zero will make the 
BEQ PRINT2 instruction succeed. If .A contains any other value 
it will be passed to BSOUT. 

The trouble with this print subroutine is that it will only out- 
put the text string located at STRING. So, to make the routine a 
little more generic, we'll modify it to use some zero-page 
pointers and we'll also modify it to handle text strings that 
occupy more than 256 bytes of RAM (the above routine will 
abort when .Y wraps around to zero at the INY instruction). 
Here's our new, improved PRINT subroutine (funny thing about 
that name, eh?): 



print 



printl 



stx 


ptr 


sty ptr+1 


ldy 


#0 


Ida 


(ptr) , y 


beq print 2 



; set up zero page pointer to 
;the text string to output 
.starting offset 

■ 
r 

; fetch a character 

; zero byte. . .we're done 
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jsr bsout 

iny 

bne printl 

inc ptr+1 
bne printl 



print2 rts 



output via $ffd2 
next character 
loop 

now in the next page of ram 
loop 

; exit 



To use this routine you would code the following: 

ldx #<st ring ; fetch lo byte of string address 
ldy #>string ; fetch hi byte of string address 
jsr print ; output the string 



Now we can output text by simply giving the subroutine the 
starting address of the string. Some programmers like to pass 
such things as text string addresses via the stack. I personally 
fail to see why. The PLAs and phas required to do that are 
enough to confuse even the most experienced programmers, 
gain little in execution speed, and are likely to introduce hard- 
to-solve bugs if everything isn't right. 

Ok, now that we have a generic print routine, it's time to in- 
troduce some more text string output techniques. 

Jockeying for position 

Most displays require that text be placed at certain locations on 
the screen. Such things as menus and columns of numbers look 
best when neatly aligned top to bottom and centered between 
margins. Fortunately, the Kernal includes a useful cursor posi- 
tioning function that can be readily called from your program. 
Located at SfffO in the Kernal jump table is the PLOT subroutine, 
the primary cursor control mechanism built into the screen edi- 
tor. (One of the truly unique features of the eight-bit Com- 
modore machines is their flexible, easy-to-use full-screen edi- 
tors. In particular, the CI 28 editor is amazingly powerful for a 
machine that purports to be a 'home computer*!) 

PLOT actually serves two purposes, depending on whether the 
carry bit is set or cleared. If carry is cleared when plot is 
called, the cursor will be positioned at the row number given 
in .X and the column given in .Y (row and column coordinates 
always start at 0,0 and in the CI 28 editor, location 0,0 is rela- 
tive to the currently defined window, not the screen). On the 
other hand, if the carry bit is set, then the current cursor posi- 
tion will be returned by plot, the row in the ,X register and 
the column in the .Y register. I call such an operation "logging 
the cursor position". Let's write some code to avail ourselves 
of these functions: 



, set cursor position 



; log cursor position 

plotb sec 

jmp plot 



;set carry to log position 
; located at $f f f 



plota 



clc 
.byt $24 



; carry clear to set position 
; fall thru, call plot routine 



■ 
f 



The PLOTB subroutine directly follows the PLOTA subroutine 
(PLOTA falls through into PLOTB). A JSR PLOTA instruction will 
move the cursor to the row and column specified by the .X and 
.Y registers. For example: 

ldx #row 
ldy #column 
jsr plota 

This sequence sets the cursor position. If the return from plot 
leaves the carry bit set, then the position command was not 
executed (usually because the coordinates lie outside the limits 
of the screen). Calling the subroutine at PLOTB will result in 
the current cursor position being returned in ,X and .Y without 
disturbing the cursor itself (it won't move). This works like the 
POS statement in basic. 

I know you're wondering about that .BYT $24 business in the 
plota subroutine. It's a simple method of getting the processor 
to jump past the SEC instruction in PLOTB. Let's suppose that 
this little routine is assembled at $2000. The resulting code 
would be disassemble in a machine language monitor like so: 

.d 2000 2003 

.2000 18 clc 
.2001 24 38 bit $38 
.2003 4c fO ff jmp $fff0 

Hmmm, you say. It doesn't look like what I wrote in my 
source file. Actually, all of the bytes are there, but appear 
different because of the $24 byte (which is a zero-page BIT 
instruction). When the processor executes the instructions 
starting at $2000 it will clear carry and then execute a harm- 
less bit operation on location $38 in zero-page RAM (BIT 
leaves .A, .X and .Y untouched and doesn't affect carry). The 
byte $38 that acts as the operand for the BIT instruction is real- 
ly the SEC instruction that was assembled into PLOTB. Now, 
let's disassemble the routine at $2002: 

.d 2002 2003 

.2002 38 sec 
.2003 4c fO ff jmp $fff0 

Do you see how it works? Good! The technique of using a BIT 
op-code to cover some other code is a commonly used one 
(take a look at the Kernal itself for some examples of this 
trick). By the way, even though PLOT is actually a subroutine, 
the JMP PLOT sequence is correct. When the RTS at the end of 
PLOT is executed, the processor will return back to the point in 
your program that called PLOTA or PLOTB. 
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Now that we can position the cursor to any location on the the combination of the look-up table and a simple decoding 
screen, we will move forward in our quest for clean screens. routine will do just that. 



Fetching text strings via a look-up table 

Ah, yes... that bane of easy programming: the look-up table! A 
suprisingly large number of machine language programmers 
avoid the use of look-up tables, probably because they don't 
understand them or fail to see any practical use for them. Well, 
there's really no good reason to avoid the use of look-up 
tables. Once a few simple principles are understood, working 
with look-up tables becomes as easy as pressing the Return 
key. As for incorporating a look-up table in your software; 
welk I'll show you how to use one. Let's first see what a small 
look-up table looks like: 

txttab . wor strngl , strng2 , strng3 , strng4 

In MOS assembler syntax, the directive (pseudo-op) .wor 
(.word) causes the assembler to generate two bytes equal to 
the low -byte/high-byte address of the referenced locations 
(data words) following the .WOR directive itself. Cbm assem- 
blers allow you to assemble several words on one code line by 
separating them with commas. Let's suppose that the refer- 
enced strings have the following addresses: 



strngl 
stmg2 
strng3 
strng4 



$2000 
$2027 
$2641 
$316a 



When the assembler parses the TXTTAB look-up table, it will 
generate the following output bytes (I've arranged them in two 
columns to make it more obvious as to what happens): 

$00 $20 
$27 $20 
$41 $26 
$6A $31 

The .WOR directive results in a series of two-byte pointers 
being assembled in low-byte/high-byte order, each pointing to 
a location where a text string is lying in wait. The entire table 
starts at the address location referenced by the TXTTAB label 
The distance in memory between successive text string point- 
ers is always two bytes, even though the strings themselves are 
scattered all over the map. Incidentally, most assemblers have 
a directive (usually .DBYTE) that assembles such pointers in 
high-byte/low-byte order. The resulting addresses are usually 
used as jump vectors. 

Ok, big deal, you say. I've got a bunch of addresses in 
memory that point to text strings. What good is that? The 
beauty of this arrangement is that you can fetch the string 
pointer by passing a one-byte index value to a decoding sub- 
routine, which then leaves the other two processor registers 
free to do something else (such as position the cursor). In 
effect, you can say, "Give me the pointers to string #14" and 



Let's write the decoding subroutine: 



loctxt sec 

sbc #1 
asl a 

bcs errext 

tay 

Ida txttab+l,y 

ldx txttab, y 

tay 

errext rts 



set carry to subtract 
reduce index by one 
double the value in .a 
the index is out of range 

becomes an offset 
fetch pointer hi byte 
fetch pointer lo byte 
give hi byte to ,y 

; exit 



You call this routine by loading .A with the relative position of 
the string in the table and the routine comes back with the 
string pointer in .X and .Y (which may then be used in the 
PRINT subroutine). If you call LOCTXT with 1 in the accumula- 
tor (which means you want the first of the four referenced 
string pointers, STRNGi in this case), it will be decremented to 
and then doubled in the ASL A op-code. Since zero times any- 
thing is zero, the resulting offset will be zero and the first and 
second bytes in the look-up table will be fetched. Thus, .X and 
.Y will contain $00 and $20 respectively. 

If you call LOCTXT with 3 in ,A (meaning that you want the 
pointers to STRNG3), the subroutine will return .X = $41 .Y = 
$26, pointing to STRNG3. Why? Let's 'single step' through the 
routine to see what happens to the index: 





Value 


in 


Executed Code 


.A 

$03 


.X 


.Y 


loctxt sec 


* 


sbc #1 


$02 


* 


* 


asl a 


$04 


* 


• 


tay 


$04 


* 


$04 


Ida txttab+l,y 


$26 


• 


$04 


ldx txttab, y 


$41 


$41 


$04 


tay 


$26 


$41 


$26 


rts 


$26 


$41 


$26 



The asterisk (*) indicates that the registers contain indeter- 
minate values. Can you see how we got the correct pointers 
with a single byte index in .A? If txttab is assembled at 
$3000, the ldatxttab+i,y instruction in effect becomes lda 
$3000+$0l+$04. So we get the low-order byte from S3004 and 
the high-order byte from $3005, 

The above decoding technique will work on a table with a 
maximum of 128 entries. For that reason, a range check is 
included to avoid exceeding the 128 entry limitation. If carry 
is set when the ASL instruction is executed, the supplied index 
was in the range of 1 29 to 255 or was zero (an index of zero is 
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undefined and therefore not allowed). Can you figure out why codes and strange keypress sequences. So, let's look at some 
128 entries is the limit with this technique? menu-handling techniques. 



Just to show you that the look-up table is a handy thing to 
incorporate into your software, we'll utilize txtab and LOC- 
TXT together with PLOTA and PRINT and make an all-purpose 
text string printing function. We'll name this routine PRNTXT 
and call it as follows: 



Ida # index 

ldx trow 
ldy # column 
jsr prntxt 
bcs error 



,1, 2, 3, etc. (text string 

; index) 

; row to print the text on 

; column to start printing at 

; do it 

; something went wrong 



Menus give you an opportunity to make attractive and easy-to- 
read screens. However, in machine language you don't have 
those convenient TAB, SPC and cursor movement commands 
that basic provides. Fortunately, the plot subroutine (more 
specifically, our PLOTA subroutine) can be used to provide the 
necessary cursor movements. 

Let's design a simple "do-nothing" menu: 

1 . Do Operation #1 

2 . Do Operation #2 



Now for the actual prntxt subroutine: 



3 . Do Operation #3 



prntxt pha 




; stash text string index 


jsr 


plota 


/position cursor 


pla 




; recover index 


bcs 


abort 


; coordinates are out of range 


jsr 


loctxt 


; fetch text string pointers 


bcs 


abort 


;the index was out of range 


jmp 


print 


; output the text 



abort rts 



exit 



How's that for an efficient, all-purpose print routine? If the 
routine exits with the carry cleared then everything went as 
expected (upon exiting from the PRINT subroutine the carry is 
cleared). By the way, because we directly control the cursor 
position by using PLOT (rather than by utilizing cursor position 
characters and spaces) the speed at which the screen display is 
brought up is dramatically improved. On a C64, the screens 
will seem to appear like magic. 

Now for CI 28 speed tip number one: The 128's screen editor 
has its own jump table starting at $c(X)t). Rather than out- 
putting to the screen via the BSOUT subroutine at $ffd2, it's 
much faster to go directly to the editor at $c00c. Bsout per- 
forms time-consuming checks to determine which peripheral 
is the designated output device. If you already know where 
you want the display to appear, why get tangled up in a bunch 
of output device tests? And, while you're busy bypassing the 
Kernal jump table, you might want to consider using PLOT at 
$c018, rather than at SfffO (the code at $fffO simply jumps to 
$c018). These are legitimate jump table entry points (they're 
documented in the CI 28 Programmer's Reference Guide) and 
thus should be stable even though Commodore may revise the 
Kernal at a future date. 

How to order up menus 

It's my humble opinion that menu-driven programs are much 
friendlier than those that make the user remember operating 



4, Do Operation #4 

We have several approaches available to us in coding this 
menu and outputting it to the screen. The first approach 
would be to assemble four separate text strings (you could 
call them MENUA, MENUB and so forth), enter them into the 
look-up table txttab and then repetitively call the prntxt 
subroutine to output them. Each call to PRNTXT would 
require that you supply the string index and the row and 
column coordinates. If you had a menu with eight lines, 
you'd have to make eight calls to prntxt. That's a lot of 
code just to output a menu. 

A second approach, if you have a CI 28, is to define a 
window whose top left corner is in the same location as the 
top left corner where the menu is expected to start. Then, 
each line would end with a carriage return and extra linefeed, 
with only the last line ending with a zero byte terminator. 
However, not everybody has a CI 28, so not everybody has a 
window command to work with. Besides, the 128's editor is 
relatively slow when it is expected to figure out the cursor 
position via the use of carriage returns, cursor movement 
characters and linefeeds, 

A better way (and the one that I like to use) is to imbed the 
cursor position coordinates within the text itself. Obviously, 
that means that we can't use our PRNTXT subroutine for such a 
menu, as it wouldn't know what to do with the cursor coordi- 
nates. We can, however, use PLOTA to position the cursor and 
LOCTXT to look up the text pointers. 

The nice thing about imbedding the coordinates in the text is 
that when examining the source code, it is easy to determine 
just where on the screen the menu is expected to appear. 
Knowing that makes it easier to change the menu's location if 
desired. If we were to utilize PRNTXT and a bunch of individual 
text strings, we'd have a lot more work cut out for us. So, let's 
implement the third method by imbedding cursor position 
coordinates into the text itself. Here is the menu again, but this 
time with the row and column positions noted: 
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ROW 



6 



9 



11 



13 



15 



COL 



35 



31 



31 



31 



31 



Menu Title 



1. Do Operation #1 



2 . Do Operation #2 



3. Do Operation #3 



. Do Operation #4 



Yeah, I know.. .it's a strange-looking routine, but it does work. 
This is an example of self-modifying code. The "text pointer" 
is actually the operand of the lda instruction at CHRGT. When 
this subroutine is called, the text pointers will have been stored 
at CHRGT+1 (lo byte) and CHRGT+2 (hi byte). After fetching 
the character the text pointer is incremented. This means that 
the next call to CHRGT will fetch the next character. Finally, the 
character is pushed on the stack and then immediately pulled 
back off the stack. The purpose of pushing and then pulling 
the character to and from the stack is simply to condition the Z 
flag in the status register before exiting. 



The coordinates shown above center the menu on an 80- 
column display (side to side, as well as top to bottom). The 
title appears centered on row 6. On a 40-column screen, just 
subtract 20 from the above column values to center the 
display. 

To imbed the cursor coordinates into the text you would code 
as follows: 

mentxt .byt 0,6, 35, 'Menu Title' 

,byt 0,9,31, '1. Do Operation #1' 

.byt 0,11,31, '2. Do Operation #2' 

.byt 0,13,31, '3. Do Operation #3' 

.byt 0,15,31, '4. Do Operation #4 ',128 



Now for the main routine, which we'll call TXTR It is invoked 
as follows: 

Ida #index ; index to text string 

jsr txtp 

bcs error ; something is not right 

If you wanted to display the menu and the look-up table TXT- 
TAB had the following entries: 

txttab .wor strngl, strng2, strng3, strng4 
. wor mentxt , st rngS , s t rng6 , st rng7 

You would code: 



Let's look a little closer at this gibberish. Each line is started 
with a zero byte, followed by the row and column coordinates, 
which are then followed by the text itself. The value 128 acts 
as the terminator for the entire menu (128 is not a printing 
character nor is 0). The trick to this technique is that when we 
encounter a zero byte we know that the next two bytes are row 
and column coordinates, not text. When we encounter the 128 
byte, we know that the entire menu has been displayed. 

You are not limited to just text and coordinates with this tech- 
nique. You can also imbed colour values at any point in the 
text. You can imbed characters to turn reverse video on or off. 
In fact, any charcter may be imbedded as long as it will not be 
recognized as one of the two possible delimiting values (0 or 
128). 

To work with this type of format, we need a character-fetching 
subroutine and a subroutine to take care of outputting charac- 
ters and positioning the cursor. First the character fetching 
subroutine: 



chrgt Ida chrgt+1 
inc chrgt+1 
bne chrgt 1 



; fetch a character 
; step text pointer lo 



Ida #5 
jsr txtp 
bcs error 

Mentxt (the pointer to the menu) is the fifth item in the look- 
up table. Note that TXTP is called in the same manner as the 
PRNTXT routine except that you don't pass any cursor coordi- 
nates. Here's the TXTP subroutine: 

txtp jsr loctxt /convert index into text pointers 
bcs txtp04; index out of range 

stx chrgt+1 ; set up beginning text pointers 
sty chrgt +2 



txtpOl jsr chrgt 
beq txtp02 



; fetch a character 

; zero byte, cursor coordinates 

; follow 



cmp #128 ; final terminator 
beq txtp03 ;exit 



jsr bsout 
bcc txtpOl 



; output the character 
;go get the next one 



inc chrgt+2 ; step text pointer hi 



chrgtl pha 
pi a 

rts 



; stash on stack 
; recover character 






txtp02 jsr chrgt 
tax 

jsr chrgt 
tay 

jsr plot a 
bcc txtpOl 



; fetch row 

; fetch column 

/position cursor 
; resume 
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.byt $24 /cursor coordinates out of range 



txtp03 clc 



txtp04 rts 



;no error 



; exit 



Looks like a lot of code just to print menus? Not really! Don't 
forget, this routine takes care of cursor positioning and every- 
thing. All you have to do is enter the menu into the took-up 
table and pass the index in the accumulator. If you come out of 
TXTP with the carry set, then something was amiss (either the 
index or the cursor coordinates were out of range). 

Make it easy for yourself 

One of the things I do when planning a program where a lot of 
menus and such will be used is to lay out the screen on graph 
paper (TOPS form 3304 is perfect for this purpose), I position 
the text just as I want it to appear on the screen, and I include 
notes about color, reverse video and so forth. This allows me 
to visualize the finished product and avoid such contretemps 
as off-center titles or text running off the edge of the screen. 

Once I have worked out my screen I can read the text right off 
the paper version and type it into the program, cursor coordi- 
nates, colours and all. I suggest that you adopt this method 
when writing your software. I call it easy programming! □ 
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THE QUICK BROWN BOX 
A NEW CONCEPT IN COMMODORE CARTRIDGES 

Store up to 30 of your favorite programs — Basic & M/L, Games & 
Utilities, Word Processors & Terminals — in a single battery-backed 
cartridge. READY TO RUN AT THE TOUCH OF A KEY. 
HUNDREDS OF TIMES FASTER THAN DISK. Change contents 
as often as you wish. The QBB accepts most unprotected programs 
including "The Write Stuff" the only word processor that stores your 
text as you type. Use as a permanent RAM-DISK, a protected work 
area, an autoboot utility. Includes utilities for C64 and C-128 mode. 

Packages available with u The Write Stuff," "Ultraterm III," "QDisk" 
(CP/ M RAM Disk), or QBB Utilities Disk. Price: 32K $99; 64K $129. 
(+$3 S/H; $5 overseas air; Mass residents add 5%). 1 Year Warranty. 
Brown Boxes, Inc, 26 Concord Rd, Bedford, MA 01730: (617) 275- 
0090; 862-3675 





VIDEO BYTE the first FULL COLOR! 
video digitizer for the C-64, C-128 

Introducing the world's first FULL COLOR! video digitizer for the 

Commodore C-64, C-128 & 128-D computer 

VIDEO BYTE can give you digitized video from your V.C.R., B/W or 

COLOR CAMERA or LIVE VIDEO (thanks to a fast! 2.2 sec. scan time). 

• FULL COLORIZING! Is possible, due to a unique SELECT and INSERT color process, 
where you can select one of 15 COLORS and insert I hat color into one of 4 GRAY 
SCALES This process will give you over 32,000 different color combinations to use in 
your video pictures 

• SAVES as KOALAS! Video Byte allows you to save all your pictures to disk as FULL 
COLOR KOALA'S After which (using Koala or suitable program) you can go in and 
redraw or recolor your Video Byte pic's 

• LOAD and REDISPLAY! Video Byte allows you to load and re display all Video Byte 
pictures Irom inside Video Bytes menu 

• MENU DRIVEN! Video Byte comes with an easy to use menu dnven UTILITY DISK and 
digitizer program " 

• COMPACT! Video Bytes hardware is compact' In fact no bigger than your average 
cartridge! Video Byte comes with its own cable. 

• INTEGRATED! Video Byte is designed to be used with or without EXPLODE! V4.1 color 
cartridge Explode! V4.1 is the perfect companion 

• FREEI Video Byte users are automatically sent FREE SOFTWARE updates along with 
new documentation, when it becomes available 

• PRIttTI Video Byte will printout pictures to most printers However when used with 
Explode! V4 1 your printouts can be done in FULL COLOR on ihe RAINBOW NX-1000. 
RAINBOW NX-1000 C. JX 80 and the OKIOATA 10 / 20, 

Why DRAW a car airplane, person or for that matter 

anything when you can BYTE it ii mrn DVTC C7Q OR 
Video, Byte it instead WUCU Pi C Q/J.JU 

SUPER EXPLODE! V4.1 w/COLOR DUMP 

If your looking for a CARTRIDGE which can CAPTURE ANY SCREEN, PRINTS ALL 
HI-RES and TEXT SCREENS in FULL COLOR to the RAINBOW NX-1000. RAINBOW 
NX-1000 C, EPSON JX-80 and the OKIOATA 10 or 20, Prints in 16 gray scale to all 
other printers Comes with the world's FASTEST SWE and LOAD routines in a car- 
tridge or a dual SEQ., PRG file reader. Plus a built-in 8 SECOND format and 
MUCH, MUCH MORE! Than Explode! V4.1 is for you. 
PRICE? $44.95 ♦ S/H or $49.95 w/optional disable switch. 

■ in 64 mode only VIDEO BYTE only $79.95 
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Ride Your 4040 On The Serial Bus 



lEEE-to-serial bus conversion for the 4040 



by Michael Gilsdorf 

Copyright © 1989 by Michael Gilsdorf 

Ever since I bought my CI 28 I always wished I could use all 
of BASIC 4.0 commands. Top on my wish list was being able to 
copy files from one drive to another with the COPY and BACK- 
UP commands. However, since neither the 1541, 1571, or 1581 
support drive 1, copying files required loading and running a 
copy program, A few months ago I had the opportunity to 
acquire a 4040 dual drive with an ieee interface. The price was 
right so 1 took the plunge. 

Unfortunately the IEEE interface had some problems. It worked 
fine in C64 mode, but refused to operate in CI 28 native mode. 
Also, it would not work with the SX-64 or the VIC-20. Since the 
interface patched into the computer's operating system via the 
cartridge port, some programs would neither run nor support it. 
I was constantly plugging and unplugging the interface, and 
found myself unable to use the drive when I most wanted to. 

What I needed was another interface - one that would offer the 
maximum compatibility and operate with my other Com- 
modore computers. Since speed was a secondary concern, the 
best interface, I thought, would be one that connected the 
4040's IEEE connector to the Commodore's serial bus. However 
after contacting several Commodore suppliers and second 
party vendors, it appeared no one made this type of interface. I 
finally decided to interface the drive to the serial bus myself. 

My goal was to connect the 4040 to the serial bus using the 
minimum amount of hardware. It seemed to me that since the 
4040 was an intelligent drive, it ought to be able to be pro- 
grammed to respond to the serial bus signals. If so, then there 
would be no need of an external interface equipped with its 
own CPU, ROM, ram, I/O, and other support chips. I hoped that 
I could connect the 4040 to the serial bus by having to replace 
only a ROM chip and the connecting cable. 

As it turned out, an additional nand chip was required since a 
direct pin-for-pin EPROM replacement was not available for the 
4040 ROM, Once having completed the conversion process, I 
did find the 4040 a little faster than the 1541. But don't expect 
the 4040 to work with disk speed-up cartridges or some com- 
mercial software. They generally are not written to operate 
with the 4040 disk operating system (DOS). 



The following is a list of the items you'll need to make the 
conversion - but first, a word of caution. If you are not techni- 
cally inclined (or don't know what end of a solding iron to 
hold) I strongly recommend you do not attempt the modifica- 
tion yourself! Acquire the skills of an electronic technician 
experienced with digital hardware. Should you damage your 
4040 through carelessness, you may find it difficult to find an 
technician experienced in repairing the drive. So be careful 
and double check all your work! 



Parts List 



Quantity 



Description 



1 
1 
1 



2532 EPROM chip 
74LS00 NAND chip 
6-pin male DIN plug 



The next material list is recommended, but not absolutely 
essential to perform the conversion. (More about these items 
later.) 

1 14-pin IC socket for the 74LS0O NAND chip 
1 IEEE-488 connector and cable 
1 6 -pin female DIN plug 

(Note: All parts for this project are available at Radio Shack 
with the exception of the 2532 EPROM and IEEE connector 
cable.) 

One nice thing about this modification is you can still revert 
back to the original IEEE interface, if you so desire. Simply 
swap the eprom chip with the original CBM ROM (along with 
a cable change-out) and your drive is back to its IEEE config- 
uration. Removing the NAND chip is not necessary. By the 
way, if you're interested in complete, documented source 
code for the 4040 drive, The Anatomy of the 4040 by Hilaire 
Gagne is an excellent book. [Hilaire Gagne, 4501 Carl St., 
P.O. Box 278, Hanmer, ON, Canada, POM 1 Y0. For Canadian 
residents, $39.95 (Cdn) plus $3 shipping and handling; for 
U.S. residents, $31.95 (US) plus $9 shipping and handling.] 
Discussions with Hilaire strongly hint that a similiar modifi- 
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cation may be possible for the 8050, 8250, and 9060 drives 
since their source code is quite similiar to the 4040. The ROM 
chips used in these other drives appear to be 8K. If true, 
modifying these drives for serial operation may involve only 
a ROM and cable swap! 

Step I - Software Modification 

We'll begin the modification by programming the EPROM. For 
this you 11 need an eprom programmer (e.g.. Promenade). 
Begin by unplugging the 4040's AC power cord, and discon- 
nect the IEEE connector/cable on the back of the drive. Next, 
locate and remove the two screws on either side of the drive. 
You'll find them situated at the bottom near the front face. 
Now open the top cover to the drive by lifting and swinging 
up the cover from the front to the back. The motherboard, 
which we'll be working on, is mounted to the underside of the 
top cover. Carefully unplug the four cables on the mother- 
board. Notice that three of the cables are keyed to prevent 
them from being connected improperly. However, the two- 
wire cable for the error LED could be reconnected improperly. 
So be sure to label/mark it to show its orientation. Next locate 
and remove the six Phillips screws used to mount the mother- 
board to the top cover. Carefully remove the motherboard. 

Now find the 24-pin socketed ROM chip located near the bot- 
tom of the motherboard at position UJl (part no. 901468-14). 
Most chips have their locations labeled on the motherboard, 
but (as luck would have it) UJl is not marked (see Fig. 2). The 
ROM at UJl contains 4K of DOS code ($d()00-$dfff), and is 
located between the other two socketed ROM chips at ULi 
($e000-$efff) and UHl ($f000-$ffff). Take careful note of the 
position of the key on the ROM chip. It should be oriented 
towards the bottom of the motherboard. (The same direction as 
the other two socketed 24-pin ROM chips on either side.) It 
indicates which way the ROM is to be reinserted into its socket. 
You'll need this information when installing the EPROM, After 
removing the ROM chip, set the motherboard aside for now. 
We'll make the hardware modifications to it later. 

Next, using an EPROM programmer, read and copy the ROM 
code into the computer's memory. We'll be patching our serial 
bus routines into the original 4040 code. You might want to 
store the code on disk for future reference. If you're using a 
Promenade the set-up for the 2532 EPROM will allow you to 
read the ROM chip. The main difference between the 2532 
EPROM and the ROM chip is that the ROM chip has two chip 
select (CS) lines (pin nos. 20 and 21) as opposed to one CS line 
(pin no. 20) for the 2532 EPROM. The ROM chip is selected 
when pin 21 is low and pin 20 is high. After reading the ROM, 
we are now ready to make the patch. 

Using the CI 28 built-in monitor (or other means) replace sec- 
tions of the ROM code with the new serial bus code (see list- 
ing). After making the patches, run the code check program 
and verify that the code is error free. If the code is correct, 
then program the EPROM with the new code. This completes 
the software portion of the modification. 



Step II - Hardware Modification 

First, we'll make up the IEEE-to-serial cable. This cable will be 
constructed with an ieee-488 connector on one end and a six- 
pin (male) serial bus connector on the other end. For this you 
can use the original Commodore IEEE cable, but you'll need to 
cut off the flat edge 24-pin connector. Since this may not be 
desirable (if you ever intend to use this cable again), I recom- 
mend you use a different cable. If you're lucky you might be 
able to pick up a used one at a ham fest or surplus store. How- 
ever, if all else fails, you can purchase a new ieef-488 connec- 
tor and cable for about $50. (One possible source is L-com 
Inc. located in N. Andover, MA). 

Once you've decided on an IEEE cable, solder a 6-pin DIN 
(male) plug to the end. 1 also recommend that you solder a 6- 
pin (female) DIN plug alongside (parallel to) the male DIN 
plug. This will allow you to connect an extra device (e.g., 
printer) to the serial bus. The table below shows how the pins 
are to be connected. When finished it's a good idea to check 
each connection with an ohmmeter (or DVM). Pay special 
attention when soldering the wires to the DIN plug. It's easy to 
bridge solder across a couple of pins and cause a short! 



IEEE Connector 


to 


6-pin DIN Connector (s) 


Pin 5 (EOI) 


Pin 5 (Data line) 


Pin 6 (DAV) 


to 


Pin 4 (Clock line) 


Pin 9 (IFC) 


to 


Pin 6 (Reset line) 


Pin 11 (ATN) 


to 


Pin 3 (Attention line) 


Pin 12 (Shield) 


to 


Shield of DIN plug 


Pins 18,23,24 (GND) 


to 


Pin 2 (Ground) 



(Note: Pin numbers are usually stamped on the 
connectors. See Figure 1) 

Next install the 74LS0O NAND chip. I recommend that you 
install a 14-pin IC socket for this chip. This will make it easy to 
remove if the need ever arises. There are few places on the 
motherboard that can accommodate an additional chip - none 
have their locations labeled. I chose UA5 located between loca- 
tions UA4 and UA6 which should be marked (see Fig. 3). Notice 
that UA5 is designed to accept a 1 6-pin chip, while the 74LS00 
is a 14-pin chip. Be sure the key locator on the chip is oriented 
in the proper direction, and lines up with the chip key printed on 
the motherboard. This will position the chip towards the bottom 
of the motherboard leaving two empty IC pin holes at the top. 

Before starting the final wiring, a quick review in pin number- 
ing is in order. To determine pin numbers, look at the top side 
of the chip with the key up and facing you and pins pointing 
away. Pin 1 is located directly on the left at the top. The other 
pins are numbered counter-clockwise around the chip. This 
information is commonly pictured in many IC reference books. 
Also a word of caution - remember that IC pin numbers are 
numbered clockwise when viewed from the bottom of the 
motherboard - so be careful! Armed with this knowledge, 
you're ready to proceed with the final wiring. 
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IEEE Connector Pins 



DIOI 

DI02 

D103 

DI04 

EOI 

DAV 

NRFD 

NDAC 

IPC 

SRQ 

ATN 

Shield/Earth 

Ground 







O 






1 




13 










2 




1 1 










3 




15 










4 




1fii 










5 




M- 










■5 




16 










7 




19 










ft 




2fl 










9 




rM 










10 




22 










11 




22 










12 




24 














o 







DI05 

DI06 

DI07 

DI08 

REN 

DAV Ground 

NRFD Ground 

NDAC Ground 

tFC Ground 

SRO Ground 

ATN Ground 

Signal Ground 



Serial Bus Connector Pins 






Pin # Name Description 

1 SRQ Serial SRQ in (active fow) 

2 GND System Ground 

3 ATN Serial ATN In/Out 

4 CLK Serial Clock in/Out 

5 DATA Serial Data In/Out 

6 RESET Resets all devices on serial bus (active low) 



Figure 1 : Connector pinout diagrams 





Figure 2: Locating UJ1 

Locate the three ROM chips at the bottom of 
the motherboard. The one in the middle is 
UJi. Note that although the article refers to 
this ROM as part no, 901468-14, the chip is 
designated as 901468-1 1 in the 4040 used by 
Transactor for this illustration. The white 
wire is a device number switch. 




Figure 3: Chip Location 

Install a 14-pin IC socket in UA5 (indicated by 
the pen). This socket will hold the 74LS00 
nand chip. Ensure that the key locator on the 
chip is oriented in the proper direction and 
lines up with the chip key printed on the 
motherboard. 
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Once the NAND chip is in place, jumper pins 1 and 2, then sep- 
arately jumper pins 3 and 4. Next, jumper pin 7 of the 74LS00 
to the adjacent empty IC pin hole. This hole, which would nor- 
mally be pin 8 for a 16-pin socket, connects to the ground bus 
etching on the motherboard. Now ail that is left is to connect 
the nand chip to the 2532 chip and socket with wires. Thirty 
gauge insulated wire-wrap (or hook-up) wire works well for 
this. 

Run one wire and connect the 74LS0O pins 1 and 2 to pin 20 
of the empty 24-pin ROM socket (UN). (This is the socket from 
which we removed the ROM chip.) Run a second wire and con- 
nect pin 5 of the 74LS0O to pin 21 on the same empty ROM 
socket. After double checking your wiring and connections, 
you are now ready for the eprom. 

Before inserting the EPROM chip, bend out pin 20. This pin 
will not be inserted into its socket. Carefully insert the 
EPROM into the empty ROM socket and check to be sure the 
chip key is positioned in the same direction as it was for the 
ROM. (Should be the same as the keys on the other two 24- 
pin ROM chips on either side.) After inserting the EPROM, sol- 
der one wire on pin 20 of the EPROM and connect it to pin 6 
on the 74LS00, 



Final check-out 

With the din plug not connected, insert the power cord and 
power-up the 4040 drive. If you performed the modification 
correctly, you should see the drive's LEDs light momentarily. 
You won't hear the familiar head chatter on power-up. That 
has been eliminated. If the LEDs continue to flash, or didn't 
momentarily light, remove the drive's power cord immediately 
and double check all your wiring. Flashing LEDs could indicate 
a hardware problem with the EPROM circuit (wiring, connec- 
tions, etc). The most likely cause is connections made to the 
wrong pin numbers. Closely re-check all wiring and correct as 
necessary. Another possible cause is an error in the eprom 
code or wrong checksum. 

If the drive initialized correctly, turn off the drive, connect the 
DIN plug to the serial bus, and power up the computer and the 
4040 drive. For now, disconnect any other devices you have 
from the serial bus. Following initialization, try loading the 
directory and loading/saving a program. If this works cor- 
rectly, then reconnect any other devices you have to the bus 
and check them all for proper operation. (Note: Some devices 
may cause problems with serial bus operation if they are left 
connected to the bus while turned off.) 



Before final reassembly, you may want to change the 4040 's 
device number. The device number is determined by whether 
pins 22, 23, and 24 on the 6532 chip (located at UEi) are 
grounded or open-circuited (floating). For device 8, the pins 
are all grounded by a tiny etched tracing connecting a pair of 
adjacent "half moon' etchings. These 'half moons' are located 
between UEi and UH2. The device number is changed by open- 
circuiting the pins. This can be accomplished by cutting the 
trace(s), or bending out pins 22, 23, and/or 24 (preferred). 
Another alternative, if you think you'll be changing the device 
number again in the future, is to install switches across the cut 
half moons. The table below shows how the device number re- 
lates to the various pin combinations. 



Device 








Number 


Pin 22 


Pin 23 


Pin 24 


8 


Ground 


Ground 


Ground 


9 


Ground 


Ground 


Open 


10 


Ground 


Open 


Ground 


11 


Ground 


Open 


Open 


12 


Open 


Ground 


Ground 


13 


Open 


Ground 


Open 


14 


Open 


Open 


Ground 


15 


Open 


Open 


Open 



Now, reinstall the motherboard to the top cover using the six 
Phillips screws. Do not overtighten the screws or you may 
crack the motherboard! Carefully plug in the four cables on 
the motherboard, and install the IEEE-to-serial cable on the 
back of the drive. Close the top cover and reinstall the two 
remaining screws on either side of the drive. This completes 
the hardware modification. 



Well, thats it! Hopefully everything went smoothly and your 
4040 is riding the serial bus. If you have any questions or 
comments, I can be reached on QLink as "Mike All". Until 
then... easy DOS it! 



Patch code for serial bus 4040 

; Serial Bus Conversion Code for 4040 Drive 
; By Michael Gilsdorf - Copyright (c) Mar 89 



Qd2aQ eO 



Gd2ee 08 



999 



999 



; checksum byte 
;gap same as 1541 



; You may wish to keep the original gap of $09. 
; If so, change checksum byte to $df . 

Qd339 a9 18 Ida #$18 ; reset bus lines 

0d468 20 73 d6 jsr $d673 eliminate head chatter on error 

Qd492 a9 00 Ida #$00 initialize track 



0d49a a2 cl ldx #$cl 
0d49c 4c a3 d4 jmp Sd4a3 



.eliminate head chatter on power-up, 
; reset, and "UJ n command 



; Idle 


Loop Patch 




0d4a6 


ad 47 43 Ida $4347 


; command waiting? 


0d4a9 


fO 07 beq $d4b2 


;no 


0d4ab 


78 sei 


; disable interrupts 


0d4ac 


20 a6 d6 jsr $d6a6 


,set Data low for future ATN ack 


Odiaf 


4c 79 d6 jmp $d679 


/DOS command execution patch 


0d4b2 


20 50 d6 jsr $d650 


;if ATN pending then service bus 


0d4b5 


20 94 d6 jsr $d694 


;no ATN - reset bus lines 



0d507 4c b2 d4 jmp $d4b2 /continue idle looping 
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Main Serial Bus Routine 



0d50a 


78 


sei 


; disable interrupts 


0d50b 


20 a6 d6 


jsr $d6a$ 


;set Data line low - ATN ack 


0d50e 


ad 87 02 Ida $0287 


; clear interrupt register 


OdSll 


a2 f f 


Idx |$ff 


; reset the 


0d513 


9a 


txs 


; stack pointer 


OdSU 


20 97 d6 


jsr $d697 


;set Clock line high - release 


Qd517 


2c 80 02 bit $0280 


-read serial bus 


0d51a 


10 66 


bpl $d582 


; jump if ATN gone (high) 


0d51c 


50 £9 


bvc $d517 


;wait for Clock line high 


0d51e 


20 cO d5 


jsr $d5c0 


,read bus command byte 


0d521 


aa 


tax 


;save command byte 


0d522 


c5 Oc 


crop $0c 


; LISTEN? 


0d524 


dO 06 


bne $d52c 


;no 


0d526 


85 Oe 


sta $0e 


;set listen flag active 


04528 


84 Of 


sty $0f 


:set talk flag inactive 


0d52a 


fO 08 


beq $d534 


;jump (always) 


0d52c 


c5 Od 


emp $0d 


;TALK? 


0d52e 


dO Oe 


bne $d53e 


;no 


0d530 


85 Of 


sta $0f 


;set talk flag active 


0d532 


84 Oe 


sty $0e 


;set listen flag inactive 


0d534 


a9 20 


Ida !$20 


;set for internal (default) 


0d536 


85 16 


sta $16 


.secondary address and 


0d538 


85 17 


sta $17 


; original secondary address 


0dS3a 


85 10 


sta $10 


;set primary address flag active 


Qd53c 


dO lb 


bne $d559 


;jump (always) 


04531 


29 60 


and #$60 


;mask command byte 


0d540 


c9 60 


emp #$60 


SECONDARY ADDRESS? 


01542 


dO 23 


bne $d567 


;no 


0d544 


a5 10 


Ida $10 


;is primary address flag active? 


0d546 


fO If 


beq $d567 


;no 


Od548 


8a 


txa 


.retrieve command byte 


Qd549 


85 17 


sta $17 


;save byte as original secondary address 


Od54b 


29 Of 


and t$0£ 


;mask command byte 


0d54d 


85 16 


sta $16 


■save as secondary address 


0d54f 


8a 


txa 


retrieve command byte 


Od550 


29 fO 


and |$f 


;mask command byte 


Qd552 


c9 eQ 


en?) #$e0 


; CLOSE? 


Qd554 


dO 27 


bne $d57d 


;no 


0d556 


20 8d f5 jsr $f58d 


execute Close 


0d559 


2c 80 02 bit $0280 


;read serial bus 


0d55c 


30 cO 


bni $d51e 


; jump if ATN line low - get next byte 


0d55e 


10 22 


bpl $d582 


; jump if ATN line high 


; Enable Interrupts - Check for Pending ATN 


0d560 


58 


cli 


; enable interrupts 


0d561 


2c 80 02 bit $0280 


; is ATN line low? 


0d564 


30 a4 


bmi $d50a 


;yes - service bus 



0d566 60 rts 

; Main Serial Bus Routine (continued) 



0d567 


8a 


txa 


.retrieve command byte 




0d568 


c9 3f 


anp f$3f 


;UNLISTEN? 




0d56a 


dO 04 


bne Sd570 


;no 




0d56c 


84 Oe 


sty $0e 


;set listen flag inactive 




0d56e 


fO 06 


beq $d576 


..-jump (always) 




0d570 


c9 5f 


emp t$5f 


;UNTALK? 




0d572 


dO 06 


bne $d57a 


;no 




0d574 


84 Of 


sty $0f 


;set talk flag inactive 




0d576 


84 10 


sty $10 


;set primary address flag inactive 




0d578 


fO 03 


beq $d57d 


;jump (always) 




0d57a 


20 94 d< 


i jsr $d694 


; reset serial bus 




0d57d 


2c 80 02 bit $0280 


;read serial bus 




0d580 


30 fb 


bmi $d57d 


;wait for ATN line high 




Qd582 


58 


cli 


; enable interrupts 




0d583 


a5 Oe 


Ida $0e 


;is listen flag active? 




0d585 


fO 06 


beq $d58d 


;no 




0d587 


20 a7 dl 


i jsr $d5a7 


■execute Listen 




0d58a 


18 


clc 







0d58b 90 Od bec $d59a 


;jump (always) 


0d58d a5 Of Ida $0£ 


;is talk flag active? 


0d58f fO 09 beq $d59a 


;no 


0d591 20 9a d6 jsr $d69a 


; set Data line high 


0d594 20 a3 d6 jsr $d6a3 


;set Clock line low 


0d597 20 04 d6 jsr $d604 


; execute Talk 


0d59a 4c a6 d4 jrap $d4a6 


; execute DOS command/idle loop 


; Main Listen Routine 




0d59d 20 cO d5 jsr $d5c0 


;read byte from serial bus 


0d5a0 78 sei 


; disable interrupts 


0d5al 20 f8 eb jsr $ebf8 


; write byte to buffer/disk 


0d5a4 20 60 d5 jsr $d560 


; enable interrupts - check ATN 


0d5a7 20 84 ed jsr $ed84 


;open channel for writing 


0d5aa bO 05 bes $d5bl 


;jump if channel not open 


0d5ac b5 98 Ida $98, x 


.check channel status 


0d5ae 6a ror 


;is channel set for writing? 


OdSaf bO ec bes $d59d 


;yes 


0d5bl a5 17 Ida $17 


.retrieve original secondary address 


0d5b3 29 fO and f$f0 


;mask original secondary address 


0d5b5 c9 fO emp #$f0 


;OPEN? 


M5b7 fO e4 beq $d59d 


;yes 


0d5b9 a5 16 Ida $16 


.retrieve secondary address 


0d5bb c5 01 emp $01 


;is secondary address set for Save? 


0d5bd fO de beq $d59d 


;yes 


0d5bf 60 rts 




; Read Byte from Bus 




OdScO 20 89 d6 jsr $d689 


.read bus 


0d5c3 90 fb bec $d5c0 


;wait for Clock line high 


0d5c5 a9 ff Ida |f££ 


;set the 


0d5c7 aa tax 


; timer/ counter, and 


0d5c8 a8 tay 


;set EOI status to no 


0d5c9 20 9a d6 jsr $d69a 


.-set Data line high 


0d5cc 20 89 d6 jsr $d689 


; read bus 


0d5cf 90 14 bec $d5e5 


;wait for Clock line high 


0d5dl ca dex 


;is timer/counter still running? 


0d5d2 dO £8 bne $d5cc 


;yes - no EOI yet 


0d5d4 20 a6 d6 jsr $d6a6 


;set Data line low 


0d5d7 c8 iny 


;set EOI status to yes 


0d5d8 a2 0a ldx |$0a 


/set timer/counter 


0d5da ca dex 


;is timer/counter still running? 


OdSdb dO fd bne $d5da 


;yes 


0d5dd 20 9a d6 jsr $d69a 


;set Data line high 


Od5eO 20 89 d6 jsr $d689 


;read bus 


0d5e3 bO fb bes $d5e0 


;wait for Clock line low 


0d5e5 84 aO sty $a0 


;set EOI flag 


0d5e7 aO 08 ldy #$08 


;set for 8 bits per byte 


0d5e9 2c 80 02 bit $0280 


;read bus 


Qd5ec 50 fb bvc $d5e9 


.wait for Data line high 


OdSee ad 80 02 Ida $0280 


; read bus for data 


0d5fl 0a asl 




0d5f2 0a asl 




0d5f3 Oa asl 




0d5f4 66 18 ror $18 


;save data bit 


0d5f6 20 89 d6 jsr $d689 


.read bus 


0d5f9 bO fb bes $d5f6 


;wait for Clock line low 


0d5fb 88 dey 


; read bus for more bits? 


Qd5fc dO eb bne $d5e9 


;yes 


0d5fe 20 a6 d6 jsr $d6a6 


;set Data line low 


0d601 a5 18 Ida $18 


; retrieve data byte sent 


Qd6Q3 60 rts 




; Main Talk Routine 




Qd6G4 20 69 ed jsr $ed69 


; open channel for reading 


0d607 90 63 bec $d66c 


;jurap if channel open 



Gd609 60 rts 



Transactor 



; Send Byte to Bus 




0d60a 


20 89 d6 jsr $d6B9 


;read bus 


Qd6Qd 


08 php 


;save status 


0d60e 


20 97 d6 jsr $d697 


,set Clock line high 


Odfill 


28 pip 


.retrieve status - is Data line high? 


0d612 


30 Od bmi $d621 


;yes - byte not sent (EOI) 


0d€14 


20 89 d6 jsr $d689 


; read bus 


0d617 


10 fb bpl $d614 


;wait for Data line high 


0d619 


a6 15 ldx $15 


.retrieve channel index 


0d61b 


bS 98 Ida $98 r x 


;get channel status 


Odeid 


29 08 and #$08 


;is channel status EOI? 


0d61f 


dO Oa bne $d62b 


;no 


0d621 


20 89 d6 jsr $d689 


;read bus 


Od624 


10 fb bpl $4621 


;wait for Data line high 


0d626 


20 89 d6 jsr $d689 


;read bus 


0d629 


30 fb bmi $d626 


;wait for Data line low 


Qd62b 


20 a3 d6 jsr $d6a3 


;set Clock line low 


0d62e 


20 89 d6 jsr $d689 


;read bus 


0d631 


10 fb bpl $d62e 


;wait for Data line high 


0d633 


aO 08 ldy #$08 


;set for 8 bits per byte 


Qd635 


20 89 d6 jsr $d689 


;read bus 


0d638 


10 38 bpl $d672 


;jump if Data line low - abort 


Qd63a 


a6 15 ldx $15 


;get channel index 


0d63c 


76 b5 ror $b5,x 


; fetch data bit to send 


0d63e 


90 06 bcc $d646 


;is data bit 0? 


0d€40 


20 9a d6 jsr $d69a 


;no - send data bit 1 


04643 


18 clc 




0d€44 


90 03 bcc $d€49 


;jump (always) 


0d646 


20 a6 d6 jsr $d6a6 


;send data bit 


0d649 


20 97 d6 jsr $d697 


;set Clock line high - data ready 


0d64c 


a2 Of ldx #$0£ 


;set timer /counter (delay) 


0d64e 


ca dex 


;is timer/ counter running? 


0d64f 


dO fd bne $d64e 


;yes 


Qd651 


20 a3 d6 jsr $d6a3 


;set Clock line low 


0d654 


20 9a d6 jsr $d69a 


;set Data line high 


0d657 


88 dey 


;more data bits to send? 


0d658 


dO db bne $d635 


; yes 


0d65a 


20 89 d6 jsr $d689 


;read bus 


0d65d 


30 fb bmi $d65a 


■wait for Data line low 


0d65f 


78 sei 


; disable interrupts 


0d660 


20 a6 d6 jsr $d6a6 


;set Data line low - for future ATN ack 


0d663 


20 a3 ef jsr $efa3 


;get next data byte from buffer/disk 


0d666 


20 60 d5 jsr $d560 


; enable interrupts - check ATN 


0d669 


20 9a d6 jsr $d69a 


;set Data line high 


0d66c 


a6 15 ldx $15 


;get channel index 


0d66e 


b5 98 Ida $98, x 


;is channel set for reading? 


0d670 


30 98 bmi $d60a 


;yes 


0d672 


60 rts 





; No Head Chatter on Error Patch 

0d673 09 80 ora #$80 
0d675 Sd 5c 43 sta $435c 
0d678 60 rts 

; DOS Command Execution Patch 



0d679 a9 00 Ida #$00 

0d67b 8d 47 43 sta $4347 

0d67e 8d f2 10 sta $10f2 

0d681 b8 dv 

0d682 18 clc 

0d683 20 55 db jsr $db55 

0d686 4c b2 d4 jmp $d4b2 

; Read Serial Bus 

0d689 ad 80 02 Ida $0280 

Qd6Bc cd 80 02 cmp $0280 

0d68f dO f8 bne $d689 

0d691 0a asl 

0d692 0a asl 

0d693 60 rts 



; clear the 

; command waiting flag and the 
:NMI flag 



; execute DOS command in command buffer 
;back to idle loop 



;read serial bus 
;has bus settled? 
;no 

; Clock bit in Carry - Data bit in bit #7 



; Set Bus Line(s) High 

0d694 a9 18 Ida #$18 

0d696 2c a9 10 bit $10a9 

0d699 2c a9 08 bit $08a9 

0d69c Od 80 02 ora $0280 

0d69f 8d 80 02 sta $0280 

0d6a2 60 rts 

; Set Bus Line(s) Low 

Od6a3 a9ef Ida #$ef 

0d6a5 2c a9 f7 bit $f7a9 

0d6a8 2d 80 02 and $0280 

Qd6ab 8d 80 02 sta $0280 

Qd6ae 60 rts 



; reset bus 

;set CLOCK line high 
;set DATA line high 
;read bus 

;set bus 



;set CLOCK line low 
;set DATA line low 
;read bus 
;set bus 



QdBa5 b3 



; Error Patch 



WO 



; Change version no. to 3 



;This patch allows the 4040 to be used with CP/M+, Unlike the 1541, the 4040 
; DCS does not auto-initialize on a disk swap or on receiving a "#" command. 
;The error patch initializes the disk (reads BAM & ID) once, when an error is 
; encountered. 



0d949 ae 00 43 ldx $4300 

0d94c fO 52 beq $d9a0 

0d94e 48 pha 

Qd94f 4c 96 d9 jmp $d996 

0d952 68 pla 

0d953 4c 49 d9 jmp $d949 



;is and buffer & disk initialized? 

;yes 

;save error number 

;patch 

; patch 



Error Recovery Code 

(same as original code, but has IEEE code removed) 



0d978 


fO 19 beq $d993 




0d97a 


a5 Oe Ida $0e 


; Listen flag active? 


0d97c 


dO 0a bne $d988 


;yes 


0d97e 


a5 Of Ida $0f 


; Talk flag active? 


0d980 


fO 11 beq $d993 


;no 


0d982 


20 69 ed jsr $ed69 




0d985 


4c 8b d9 jmp $d98b 




0d988 


20 84 ed jsr $ed84 




0d98b 


20 al ed jsr $edal 




0d98e 


bO 03 bcs $d993 




0d990 


20 9f ee jsr $ee9f 




0d993 


4c a6 d4 jmp Sd4a6 


;back to idle loop 



Error Patch (continued) 



0d996 


20 b8 db jsr SdbbS 


; initialize (clear) and buffer 


0d999 


68 pla 


; retrieve error number 


0d99a 


3d 01 43 sta $4301 


•save error number 


0d99d 


20 fa ec jsr $ecfa 


; initialize disk - read BAH £ ID 


0d9a0 


ad 01 43 Ida $4301 


; retrieve original error number 


0d9a3 


20 d4 d9 jsr $d9d4 


; write error no. and msg into buffer 


0d9a6 


dO ae bne $d956 


;jump (always) 



Code Check Program - written to check code residing at $d000 to Sdfff . 

10 bankO: rem for the cl28 only - change bank no. as required 
20 for ±=53246 to 57343: rem $d000 to $dfff - change if needed 
30 b=b+peek(i) ; if b>255 then b=b-255 
40 next: if b=208 then print "Code OK - Program EPROM": end 
50 print "Error in code! Correct and recheck the code before 
programming the EPROM ." 



□ 
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Colour Coordination 



Why some combinations work while others don't 



by Jim Butterfield 

Computers that use TV sets, or monitors with a "composite 
video'* connection, are often accused of rendering some 
colours poorly. The accusation is often unfounded: it's usually 
the video system itself that's at fault. In this article, 111 try to 
give you a quick run-down on why this is. An accompanying 
chart may help you choose colour schemes with good 
readability. 

The Video Concept 

Whether your video system is ntsc, as used in North Amer- 
ica, or PAL, as used in much of the rest of the world, it has a 
built-in anomaly: there is no detail in colour. Any detail you 
need on your screen must be created with a change in lumi- 
nance (brightness) rather than a change in chrominance 
(colour). 

When television systems were being designed, there were 
sound reasons for this. Tests showed that people can not see 
colour within detail; only the broad areas of a picture convey 
colour information to the eyes. In order to save channel space, 
the television system was designed to drop colour information 
from intricate parts of the picture. 

To be more precise: the brightness part of a picture (the black- 
and-white portion, if you like) is sent complete with sharp de- 
tail. The colour information of a picture is sent with much less 
sharpness. It's easy to demonstrate this on a Commodore 
Plus/4 or C-16 computer; the HUE command will change the 
brightness level of any selected colour, except black. No mat- 
ter what basic colours you choose on these machines, you can 
also pick a hue that will make the text unreadable against the 
background colour. 

Here's the trick in setting up a good, readable screen: 
choose colours with good luminance differences. The chart 
will help. 

Horrible Examples 

Look at the chart, and note that a Commodore 64 starts up 
with a background colour of blue (128 code 7, POKE value 6). 
Brown happens to have exactly the same luminance level as 



blue; on your Commodore 64, type print chr$(149) (or select 
brown on the keyboard with Commodore-2) and then try to 
type a readable line. Horrible, isn't it? Yet you can rescue that 
colour by putting it against a background that has a contrasting 
luminance level. Let's pick green, and poke 53281,5. Even 
though brown and green are not considered harmonious, ex- 
cept in trees, the washed-out brown characters suddenly be- 
come crisp and readable. Simultaneously, the earlier light blue 
text that may be on the screen becomes washed out and virtu- 
ally unreadable; it no longer has enough contrast against the 
green background. 

The same thing may be found on the 128. When you turn on the 
power, the dark grey background is actually a little brighter than 
64 blue. Print ehr$(28) (or select red on the keyboardwith 
CTRL-3 and then try to type something legible. Next switch the 
background to yellow with color 0,8; the red text will now be 
fine, but the startup-message (in light green) will wash away. 

Refer to the chart and pick a colour that has a luminance level 
one group away from whatever background you are using. Try 
typing; you'll find the characters are readable, but not as crisp 
as you might like. 

Practical Applications 

If you write a program in which you pick one or more charac- 
ter colours, you should be sure that such colours are separated 
from the background by at least two groups. That way, you 
should get good readability. 

Can you trust the background colours to be the "default" val- 
ues? Probably not. If you're going to set colours at all, you 
might as well set the whole thing: background, border, and 
character. Your program might follow on from somebody 
else's masterpiece, in which the background colour has been 
set to something completely incompatible to your colour selec- 
tion. 

Then again, you can leave colours alone completely, on the as- 
sumption that the user will have set colours to a personally 
pleasing palette. Side Issues. 

Keep in mind that the table and the above description apply 
only to the TV-like signals: television itself, of course, and 
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monitors taking 

composite video 
signals. If you hook 
up an 80-column 
display to your 128 
using the RGB] ca- 
ble, the problem 
will not arise. 
Colour will be de- 
livered to the same 
sharpness as black- 
and-white. 

All colour combina- 
tions will work to- 
gether Except, of 
course, such combi- 
nations as blue on 
blue, which is, as 
always, very hard to 
see. 

It's interesting to 
note how we tend to 
blame the computer 
for such problems, 
when the problem is 
in the video 
methodology. Ques- 
tions such as "How 
can I fix my video 
chip?" can't be an- 
swered easily, since 
the problem is not 
in the chip. 

In the same way, 
interlace pictures as 
seen with some 128 
programs and with 
the Amiga have an 
unsolvable flicker 
problem. The flick- 
er is not in the com- 
puter: it comes 
about as a result of 
the nature of televi- 
sion signals. 

To get rid of the 
flicker, you must 
pursue the same 
drastic solution as 
for 'fuzzy colours': 
you would abandon 
the standard TV sig- 
nal and go to a spe- 
cial monitor. 



128Color POKE 



Character CHRSC) 



*128 



X64 




yellow 



L .Green 

> 



Cyan 



L . Grey 



Green 



L. Red 



W. Grey 



L. Blue 




Purple 



Orange 



Red 



D . Grey 




Blue 



Brown 




Black 



2 



8 



14 



4 



16 



6 



11 



13 



15 



5 



9 



3 



12 



7 



10 



1 



1 



7 



13 



3 



15 



5 



10 



12 



14 



4 



8 



2 



11 



6 



9 







m 



a 




c 



□ 




E3 



H 



E 




□ 




□ 



□ 




■ 



5 



158 
153 



159 
155 



30 
150 



1 



154 




156 
129 



28 
151 



31 
149 



144 




< 



< 



< 



< 



< 




KShows default background colour of conputer. 



The Table 

The table is a convenient thing to keep on hand. Colours are grouped in descending order of luminance, 
from white to black. The 128 COLOR command numeric value is given, plus the POKE value which is val- 
id for both 128 and 64. If you're looking at a listing, the symbols that you'll see when colours are select- 
ed via ' programmed cursor' are shown. And finally, the CHRSO values are given; I like to use these when 
setting colour within a program, since they are easier to typeset (and read, and enter) than the reverse- 
character equivalents. I don't mind if your colours clash. But if you're going to fly that multi-coloured 
sprite against a split screen with both hi-res and text in various colours, I'd like it all to be sharp and vis- 
ible. The table may help. D 
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CompuServe expanding to Europe: We're pleased to see 
that CompuServe will soon be available to European users. 
CompuServe has entered into an agreement with Tele Colum- 
bus of Baden, Switzerland. This extension to CIS service will 
begin in the U.K. and Switzerland with other European coun- 
tries to follow. European users will be able to tap CIS* vast 
resources in the fall of this year. 

We would be remiss if we failed to note that the Commodore 
Programming Forum (go cbmprg) and the Commodore 
Communications Forum (GO CBMCOM) are a part of those 
vast resources. CBMPRG's data libraries contain a large num- 
ber of public domain, freely redistributable and Transactor 
programs which are provided to support Commodore pro- 
grammers. CBMCOM is directed more to users of Commodore 
applications programs, especially terminals. CBMCOM also 
features an on-line conference each Sunday at 9:00 pm East- 
em time. 

The Commodore Arts Forum (GO CBMART) is directed to users 
interested in games, graphics and music. Commodore itself is 
also accessible via CIS (go cbmserv). 

Minitel comes to North America: Also on the communica- 
tions front. North American microcomputer users will be able 
to reach Minitel, the French information network, for only a 
local call, using Minitel's free terminal software. 

The software connects users with the information network 
used daily by more than four million people in France, Minitel 
offers a wide range of services - everything from financial and 
business transactions to electronic chatlines and the French 
National Phone Directory. By the end of 1989, Minitel will 
also become the gateway to similar networks in Belgium, 
Italy, Spain, Germany, and Finland. 

To get the free software, use your modem to call Minitel's toll- 
free BBS number: 1 (800) 999-6163. Set your parameters to 
1200 8N1 and enter "Minitel" at the login prompt. You'll also 
receive a Directory of Minitel's services at no charge. [Yes, 
there is Minitel software for the C64, Prospective users should 
note that charges amount to 17 cents per minute for some ser- 
vices and 35 cents per minute for others. There is no sign-up 
fee and no minimum monthly charge. The free software will 
undoubtedly be available all over the continent soon via local 
BBSs as well. - MO] 

Free Spirit to market VizaStar & Viza Write 128: Viza Soft- 
ware and Free Spirit Software have entered into an agreement 
whereby Free Spirit shall exclusively market VizaWrite Clas- 
sic and VizaStar 128 in North America. VizaWrite Classic is 
described as a high performance, easy-to-use, word processing 



program for the CI 28. VizaStar 128 is the integrated spread- 
sheet, database and business graphics program for the CI 28. 

VizaWrite Classic uses page-based Wysiwyg format - word 
wraps and formats text, instantly, as you type. Editing features 
include: copy, move, delete text by highlighting a character, 
word, sentence, paragraph, page or by searching; find and 
replace any sequence of characters; full screen and document 
scrolling, up to 240 character page width; go to any page 
instantly; merge almost any other word processing file directly 
into a document; glossary area for frequently used words or 
phrases. Mail merge, a full function calculator and a 30,000 
word Spelling Checker are among its many features. An 80- 
column monitor is required. Free Spirit will market VizaWrite 
Classic at a new suggested retail price of $59.95. 

The spreadsheet for VizaStar 128 contains a ruled worksheet 
display, a 1000 row by 64 column worksheet, variable column 
widths, multiple worksheet windows, copy, move, erase func- 
tions and more. The database allows full screen design of 
records (up to nine screens can make up an individual record), 
up to 8,000 characters per record, unlimited number of records 
per file and more. The Business Graphics function uses data 
from the spreadsheet or database to draw two- or three- 
dimensional full colour graphs and charts. Free Spirit will 
market VizaStar 128 at a new suggested retail price of $69,95. 
For further information, contact: Free Spirit Software, P.O. 
Box 128 - 58 Noble St., Kutztown, PA, 19530, (215) 683- 
5609. 

Psygnosis moves into the C64 market: Psygnosis - already 
firmly established in the games market for the Amiga and ST 
- is now seeking a major slice of the action at the top and 
bottom ends of the computer entertainment marketplace. The 
company, whose titles regularly feature in the international 
Amiga and Atari ST charts, has launched a simultaneous 
two-pronged attack on the PC and 8-bit games areas. Three 
Psygnosis games will soon be available for the C64. The new 
versions are to be released under the Psyclapse label. The 
following material was taken from the Psygnosis press 
release: 

• Baal - " An addictive mixture of strategy and arcade action, 
it features eight way ultra smooth scrolling through three dis- 
tinctive domains containing multiple levels, over 250 highly 
detailed screens, superb graphics and sound effects, and more 
than 100 monsters and 400 traps." 

• Captain Fizz Meets The Blaster-trons - "A gripping mix- 
ture of high speed play and deep strategy, the game offers 
simultaneous two player action, split screen view, 20 Blaster- 
tron infested levels and a pounding soundtrack." 
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• Ballistix - "Considered the ultimate ball game, it is played 
on 130 different pitches, with splitters filling the screen with 
dozens of balls, tunnels to hide them from view, red arows to 
increase their velocity and magnets to take them out of con- 
trol. All this and a reverberating soundtrack complemented by 
crowd applause for every goal." 

These new versions will have new style packaging with cover 
illustrations involving lettering from top British artist Roger 
Dean. The C64 titles carry a suggested list price of £9.99 (cas- 
sette) and £12.99 (disk). [Sorry, no dollar amounts were given 
in the press release. - MO] Jonathan Ellis, Managing Director of 
Psygnosis, states: "As far as the 8-bit scene is concerned, we 
are convinced there is a great need for good quality fames. The 
trouble has been that 8-bit users have tended to be treated as the 
poor relations of late and so the product they have been offered 
has not been of a sufficiently high standard. Psygnosis intends 
to change all that by breathing new life into the market." 

The ICT Mini-Chief hard drive returns!: Owners of 1571 
disk drives will probably be tickled pink to discover that the 
Mini-Chief hard drive, originally marketed by the now-defunct 
InConTrol, is available once again. The hard drive is installed 
inside the 1571 case. Manufacturing rights for the Mini-Chief 
have been obtained by The Computer Bar, P.O. Box 436, 
Hagerstown, md, 21741, (301) 293-7005. 

Star Micronics offers 14 resident fonts: Star Micronics 
America, Inc. has begun shipping the first 24-wire dot matrix 
printers offering 14 resident fonts, claimed to be the greatest 
number of internal fonts available in a single dot matrix mod- 
el. These printers also produce multi-colour output with an 
optional colour-printing kit. Additionally, the manufacturer 
contends that the XB-2415 Multi-Font (15") and the xb-2410 
(10") Multi-Font printers are the quietest models in their 
price/performance categories operating at 49 and 50 decibels 
respectively. 

According to Star, these printers offer exceptional speed, print 
quality, memory capacity, paper-handling capabilities and an 
easy-to-use front control panel for optimal functionality in 
business and home office applications. They offer a super let- 
ter quality mode (SLQ) in addition to the standard LQ mode 
featured on today's 24-wire printers. Each model prints at 240 
characters per second in draft elite mode and 80 cps in LQ elite 
mode. 

The 14 resident fonts are TMS Roman, TW-Light, Courier, Pres- 
tige, Script, Letter G, Orator, Helvet, Optimo, Cinema, Blippo, 
OCR A, OCR B and Code 39. The SLQ mode is available in two 
fonts: TMS Roman and TW-Light. In addition, users can expand 
their font library with optional font cards that will soon be 
available. The printers also offer superior graphics output by 
producing 360 by 360 dpi graphics resolution, which surpasses 
that of most laser printers. 

The XB-2415 Multi-Font has an exceptionally large 41 K buffer 
which allows the printer to store up to 20 pages. The large 



memory capacity frees the computer to handle other process- 
ing tasks. The XB-2410 Multi-Font has a 27K buffer and holds 
up to 13 pages. To expand the memory capacity, users can add 
an optional 128K parallel board and a 32K ram card. 

The xb-2415 Multi-Font printer incorporates Epson LQ-1050, 
IBM Proprinter XL24 and NEC graphics emulations. The XB- 
2410 Multi-Font incorporates Epson LQ-850, IBM Proprinter 
X24 and NEC graphics emulations. The printers come standard 
with a Centronics parallel interface, and an optional 8K serial 
board with RS-232C and RS-422A interfaces is available. 

The front control panel allows users to conveniently select 
from 21 frequently-used print functions, virtually eliminating 
the need for dip switches. By pressing a button, users can 
engage the paper parking feature, which permits feeding of 
single sheets without removing tractor-fed fanfold paper. In 
addition, users can choose fonts, print quality, print pitch, con- 
densed print, italic print, quiet mode, graphics printing direc- 
tion, among other functions. 

When producing output on pre-printed forms and fanfold 
paper, users can program the printers to skip over the perfora- 
tion and position the page for a short tear-off. Other printer 
functions such as page length, lines per inch, automatic line 
feed and automatic carriage return functions can also be set 
from the front control panel. In addition, an optional pull trac- 
tor and a single -bin cut sheet feeder are available. 

The XB-2415 carries a suggested retail price of $999, the XB- 
2410 is $749. The colour printing kit has a MSRP of $50. Star 
Micronics Inc., 200 Park Avenue, Suite 3510, New York, NY, 
10166,(212)986-6770. 

Clip art for your Commodore: Parsec, Inc. is distributing a 
new series of Public Domain clip art. This package consists of 
ten disks filled with over 1,000 pieces of clip art. The clip art 
is available in either Basic 8, Newsroom, PrintMaster, 
Printshop (Side A) or Printshop (Side B) formats. Also includ- 
ed is a booklet, catalogued by disk, for quick location of the 
graphics. 

The clip art series includes everything from hi-tech and cars to 
nature and sports. The delivered price, including the shipping 
and handling, is: $13.40 for the 48 states (with a street 
address); $14.30 for pob addresses, ak, hi; and $16.80 for 
Canadian orders. The mailing address is: Parsec, Inc., POB 111, 
Salem, MA, 01920. Parsec can be reached on-line at: Com- 
puServe: 76456,3667; Q-Link: Parsec; GEnie: J BEE 

Fourth Annual Commodore Showcase: C.A.S.E (Com- 
modore Association of the South/East) has selected the 
dates of September 16-17, 1989 to hold the Fourth Annual 
Commodore Showcase in Nashville, Tennessee, This year's 
show will be held at the Nashville Convention Center. Edu- 
cational and fun seminars are given throughout the two 
days of the show. Last year, Jim Butterfield, R.J. Mical, Jim 
Oldfield, Pete Baczor and Andre Freeh were some of the 
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personalities that presented topics. Tickets for the Show- 
case will be sold by member clubs at $7,50 each (prior to 
August 1 5th, $10.00 thereafter), good for both days of the 
show. 

C.A.S.E, is a consortium of user groups formed to better 
serve the souteastern community of Commodore computer 
users by providing education, communication, product infor- 
mation and fellowship to the members. Currently, there are 
35 user groups who are members of C.A.S.E. and these 
groups consist of well over 5,000 Commodore owners and 
users. For more information: C.A.S.E., P.O. Box 2745, 
Clarksville, TN, 37042-2745. 

Bible Search from sogwap Software: Bible Search contains 
the complete King James Version New Testament text. 
According to sogwap, the program is equipped with very fast 
word search and verse display capabilities, Bible Search 
includes the full text with a complete Concordance on two 
Commodore disks. The package comes with two versions of 
the program: a C64 version (40 columns, 64K) and a CI 28 
version (40 or 80, 128K). 

The Concordance references every word to every verse in the 
New Testament, thereby eliminating fruitless searching of text. 
With Bible Search, the user can perform single or multiple 
word searches and then display the full text of those verses 
where the word(s) are used together or separately. The manu- 
facturer states that complete verse usage of each search word 
is returned in about five seconds or less on a C64/1541 and 
that faster times are possible for less used words and for 
C128/1571 users. 

The text is provided with: book, chapter and verse markings: 
upper and tower case; full punctuation; italics, and the words 
of Christ in colour. Display colours and drive usage are con- 
figurable - works with one or two drives. Printer output is 
available for any verse(s). 

Bible Search comes complete with User's Guide and is nor- 
mally supplied on two 1541 Hippy disks (1571 and 1581 for- 
mat available on request; specify when ordering). Both pro- 
grams are on one disk with the Concordance on the back. The 
full text of the New Testament has been compressed onto both 
sides of a second disk. The four Gospels are on one side; Acts 
through Revelation on the other. Bible Search is written by 
Michael R. Miller (Big Blue Reader) and is not copy protect- 
ed. The package is available through Commodore dealers or 
direct from sogwap at a cost of $25.00. Send cheque or mon- 
ey order to: SOGWAP Software, 115 Bellmont Road, Decatur, 
IN, 46733, (219)724-3900. 

New PD disks for C64/C128: Public Domain Solutions is 
pleased to announce the release of several new Public 
Domain disks/The first four new disks (E004-E007) are only 
for the 128 in 128 mode and comprise 12 Physics lessons. 
There are three lessons per disk (each lesson is about 180 
blocks). This collection sells for $12.00 (US). 



The next group of five disks provides telecommunications 
capabilities to C64 users and supports a variety of modems. 
Each of the five disks contains the terminal program itself 
(pcgterm), a wide variety of fonts and 282 blocks of docu- 
mentation. Choose the disk that supports your modem: T052 
is for the 1650; T053 for the 1660; TO54 for the 1670;to55 
for the Volks 6480; and to56 for the Mitey Mo, The disks are 
$4.00 each or purchase all five as a set for $15.00. 

Pds's 'disks of the month ' sell for $4.00 each and include: 
April '89IC64: calculate Social Security benefits, view the 
pictures that are provided with the commercial game Strip 
Poker (user must have the game to use this program), small 
SEQ file reader, count number of files on a disk, C64 pictures 
with a fade in/out slideshow program, and a disk cataloging 
program. May '89IC64: powerful sprite editor from Ger- 
many, more pictures, Print Shop graphics (3-btock), C64 ter- 
minal with VT100 (yes, 80-column) and Kermit protocol. 
June '89/C64: pcgterm with support for 1650, 1660, 1670, 
Mitey Mo and Volks 6480 all on one disk. This version 
doesn't do everything that the version on the individual disks 
does since the disk had insufficient space for the extra fonts 
and some other support files. April '89IC128: music menu 
program with many song files, a Star Trek demo, some 
1 57 1 utilities, a side 2 recovery program and some menu pro- 
grams. May '89/C128: 203-block checkbook program that 
operates in 80-column mode, the shareware terminal pro- 
gram DESTERMSDA (which runs in 80-column mode and sup- 
ports ANSI graphics). 

All prices are USD and include shipping and handling within 
the USA. Public Domain Solutions, P.O. Box 832, Tallevast, 
FL, 342701, (813) 378-2394 help and information line, (800) 
634-5546 toll free order line. 

Purrrfect mouse holder unleashed: H&H Enterprises has 
introduced the MouseCAT mouse device holder The mouse 
holder looks like a kitten and holds the mouse in its lap with 
its front paws wrapped around the mouse. MouseCAT comes 
in either light grey or white with pink ears, nose and paws, 
green eyes and a curling tail. MouseCAT attaches to the com- 
puter monitor or other flat surface with a velcro-type fasten- 
er. MouseCAT retails for $6.95 (US). For more information, 
contact H&H Enterprises, 4069 Renate Dr., Las Vegas, NV, 
89103. Phone (702) 876-6292. 




Transactor 



The Potpourri Disk 



Help! 



This HELPful utility gives you instant 
menu-driven access to text files 
at the touch of a key - while any 
program is running! 



Loan Helper 



How much is that loan really going 
to cost you? Which interest rate 
can you afford? With Loan Helper 
the answers are as close as your 
friendly 64! 



Keyboard 



Learning how to play the piano? 
This handy educational program 
makes it easy and fun to learn the 
notes on the keyboard. 



Filedump 



Examine your disk files FAST with 
this machine language utility. 
Handles six formats, including hex, 
decimal, CBM and true ASCII, 
WordPro and SpeedScript. 



Anagrams 



Anagrams lets you unscramble 
words for crossword puzzles and 
the like. The program uses a recur- 
sive ML subroutine for maximum 
speed and efficiency 



Life 



A FAST machine language version 
of mathematician John Horton 
Conway's classic simulation. Set 
up your own 'colonies' and watch 
them grow! 



War Balloons 



Shoot down those evil Nazi War 
Balloons with your handy Acme 
Cannon! Don't let them get away! 



Von Googol 



At last! The mad philosopher, 
Helga von Googol, brings her own 
brand of wisdom to the small 
screen! If this is \AI', then it just ain't 
natural! 



News 



Save the money you spend on 
those supermarket tabloids - this 
program will generate equally 
convincing headline copy - for 
free! 



Wrd 



The ultimate in easy-to-use data 
base programs, WRD lets you 
quickly and simply create, exam- 
ine and edit just about any data. 
Comes with sample file. 



Quiz 



Trivia fanatics and students alike 
will have fun with this program, 
which gives you multiple choice 
tests on material you have en- 
tered with the WRD program. 



AHA! Lander 



AHA!'s great lunar lander program. 
Use either joystick or keyboard to 
compete against yourself or up to 
8 other players. Watch out for 
space mines! 



Bag the Elves 



A cute little arcade-style game; 
capture the elves in the bag as 
quickly as you can - but don't get 
the good elf! 



Blackjack 



The most flexible blackjack simula- 
tion you'll find anywhere. Set up 
your favourite rule variations for 
doubling, surrendering and split- 
ting the deck. 



File Compare 



Which of those two files you just 
created is the most recent ver- 
sion? With this great utility you'll 
never be left wondering. 



Ghoul Dogs 



Arcade maniacs look out! You'll 
need ail your dexterity to handle 
this wicked joystick-buster! These 
mad dog-monsters from space 
are not for novices! 



Octagons 



Just the thing for you Mensa types. 
Octagons is a challenging puzzle 
of the mind, Four levels of play, 
and a tough 'memory' variation 
for real experts! 



Backstreets 



A nifty arcade game, 100% ma- 
chine language, that helps you 
learn the typewriter keyboard 
while you play! Unlike any typing 
program you've seen! 



All the above programs, just $17.95 US, $19.95 Canadian. No, not EACH of the 
above programs, ALL of the above programs, on a single disk, accessed 
independently or from a menu, with built-in menu-driven help and fast-loader 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!! 



See Order Card at Center 
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ilcome to a spectacular world of Commodore 
computing — a world devoted to the Amiga, 
C-64, C-128 and Commodore PCs. You 11 

discover the software you've always wanted to try, 
plus amazing, new programs. You'll find printers and 
plotters. Modems and monitors. Disk drives and joy 
sticks. Lasers and light pens. MIDI and mice. All the 
big and little stuff that make computing more 
productive, more creative — more fun! 
And some of the best bargains you 11 find anywhere! 



It's all in one place — at the 2nd annual North- 
Eastern World of Commodore. Whether you compute 
for business or fun, at home or school, you can't 
miss this computer show! 

The World of Commodore 

September 22, 23 and 24, 1989 

Fri. noon-8pm/Sat.&Sun, 10am-5pm 

Admission $10 Students/Seniors $8 

Includes seminars & stage demonstrations 



Exhibitors contact: The Hunter Group (416) 595-5906 Fax (416) 595-5093. Produced in association with Commodore Business Machines. 
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10-85 West Wllmot Street 
Richmond Hill, Ontario, Canada 
L4B 1 K7 
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TRANSBLOOPURZ 



Turning Off Write/Verify, Volume 9, Issue 4, pg. 57: 

Although it doesn't affect the program's operation at all, 
there was an error in one of the comments. The line in 
question should read: 

390 data a2,05: : rem Idy #5 number of job 

queues to check 

Make 2 Sided, Volume 9, Issue 4, pg. 59: This one is not 
really an error. The missing values in the Drive Table have 
been found. Thanks to author Dennis Jarvis for supplying 
them. 



Drive 




Zone 




Format Type 




1 


2 


3 


4 




2040 


20 


19 


17 


16 


$31 or $A0 


3040 


" 


Tl 


M 


i« 


11 


1540 


20 


18 


17 


16 


$41 


1541 


if 


H 






M 


1551 


if 


ti 






11 


1571 


"P 


Tl 






Ti 


2031 


«r 


II 






11 


4040 


-T 


Tl 






Tl 


2030 


14 


15 


16 


18 


$42 


8050 


28 


26 


24 


22 


$43 


8250 


N 


11 


N 


n 


Tl 



Supernumbers ///, Volume 9, Issue 5: Richard Curcio's 
treatment of indestructible variables fell victim to the old 
PETSCII to ASCII conversion snafu. While proper British 
pound signs appear in the text, this character appears in the 
listings as a backslash. 
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circle the reader service number for the ads that you'd like more 

information about (see Advertiser Index below). 
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The Hunter Group 


Outside Back Cover 


3 


Jason-Ranheim 


13 


4 


Sogwap Software 


13 


5 


The Soft Group 


69 


6 


Top-Tech International Inc. 


13 


7 


Utilities Unlimited Inc. 


Inside Front Cover 


8 



■■•.■:■■■■ .■..■■.; •■:; ■: ■ : .- . 

: =: •'■":■■:•/:■ ■ ■■: : ■ /■■■ . > x ... :■ ■ ■ ..:■■ 

.•:•.;.■:-;■. ... ■. ... ;.. . : . . .- : x. . : . ,. : . . : .. 

■■ ■■ ■■ •: : ■■ ftx ■ ■. : ■: ■■ y. : :.. . : ; 

■ ;■ ■■ ■■ •: ■ ■ •■■ . ■.■■..• ••■ .:.... ■■ .:. 



. =:■ x 
■:■ : :- .-. 
■:, ■. ■,: 



■■ ■■ :■: ■: ■:. x- . ■ ■:■ 

•x • x--.ft 
■'■: ■■'•■ ft' .■ : ■:■ ■■ ■:• 
,: : : - :■ ' ',. ft 
•■■■ ••■:■ :■■ . ■•■■:■: ■■ ■:■ 



ft ■>:■.-:■■ ■■■ -xft: x-: : » -.-.- ■;:■: -ft- •>>: ft- : : : -ft- ft: ' : £ •¥>:■* ft . : : : . :■:■ ft ■.■;• ■:>■ ■■:■. .•:■■:■:■ '■£•;': .ft:-.ft:-:ft : : : . .ft ft: •:-■■ .>:.: >:- 

x- *ft : ...x- p £ .ft -: : :- ■;. ft". 
: - '■■ ■ ■ y ': ■ ft ■ ft: ft-: ft: ft- 
ft ft-ft ft:":*: ft. :■:- ftx" x" ftftx>.--. \y «* ' : -' ':: * 



ft- -ft- ft- ft- y'-yyy ft -V .ft> £"■ ft! xft -ft ft 

x"x":ft ■■:■ --ft:--": ft *V : :'"-: : - -:' : : ' ""' ;: ' ; 

•. -ft :ft.ft: ft: ft. .ft -x ft. ,-x . ; :. : :;. .-• ft: .-, .. x 

:. -ft ft- ft. ft. * y -x -■;= ft- ft" V .x : : . ■:■: 




;-^ v ■■ : - ■■:■■:■ 
x x x .. -ft: x : -ft- 
x ft ft- ft ■ .;x ; x 



■:■: : x :■;■ 
l-^'x ■:- 

x ■:■ x x 
x x'x "ft" 




.:X : Xx::ft:ftxft 



■ ■ ■:■:■ ■:■ . 

:x ftx $ 

::xx;:: : x : 

ft: xft ftft 

■:-:■•■ ft : ft X- 

:■:■ x- ftftxx : :-x,;ft: : , 

:: •••:■•: ft !ft ft:" xft ftft^ 

■ix;;-^.:"!'; 

•X- X- ' .■". Xy ..;. ft.; 1 ..ft: . 

:•:•* -ft ■■■ • -ft- ■:■■■" ftft ■:■:-. -I 

■:ftx- ---ft 

■■■■■:::::■■■:.:: 

x'..:. :• ■:- ft. "ft:- x ■ , 

:xx:ft: ft- .ft: .ft:;.-; 

■ .: ft ■■■■ ft ■■■•'■ ■: 

x- ■■:■ x .v ..... >;. -. 

■ ,:-:■ : x: <■:■ :5 

x;x : 

: : . :■■ -x ;x ■:• ■■•■ ■■•.:>:: -. 

■y ;:■■■>■ ; x x x-x* x|: . -^ 

.:■: ■ ■ ■ x ; ■: 



■:x--x x . 






■■. : 



■ : ■: . : . ■: 



.:■.....■■. .. 

: ■■ .. ■: .. . 
■ -■ ' ■ x ■ ■ : 



:•. :■: :•: ■. : x :■■ :■ x ■:■■ ■.■ x- ■:■: ■■■■■ • : : . x 

■: ■■> <' ■: ■■ : ■■■■■■ x ■ JWV :; x 
■ : x . : : : .--::: .:■...■ 

.......;...: .... 

:x x ■;. x. .: : ;■■ x := x 

x ■:■ ■■■+■ x xx- x 

.■:': :■:■ x x '•:■; •■: :■■ : ':■ ■■ 

':■ :■: • •■: ■:■■ ■. :■:■ ■■■ .■■■ ■■:■ :■ 

■:■ .-.- .■: ■:■ -.-. .■:■ .-. -.-. : :-. :■. 

■■: ■■■: -: : ■:■ :■: ■:■: ■■:■ ■■:• '■: ■■■ 

: ■■■:■: : : •' :.:■ x ■.■■ ■:■■ x 

.X ■■ X-X ;.- ■;.;..;. ;> f- X .. 

x xx- x .-.;..:: .-.- 

■x }>. :■:■ :■. -x ■:■ ■:■ 

■x x : x : .■: .x ■:■• x 



■ ■ III..U..--M 



X: ,:■<• ;.; ■: 

:. : : .- : : : :- v..;.-. . : : : : : : :--. ■,■;,-, .:■ . : : : . -.:•.. ■ 



■ ■Willi 



■:■ .X ■:;. X- :y « , 

,-: : :■■■■ ■:■:• ■:•• .• • x- : :-. •:• . : : : 



■ ■*■*■! 




mm 



mm 



Please print your name and address below (or transfer your mailing label) 

Check here for change of address 



x x x ■ 
■■■ :■ ■ ■ . ■■ ■■■ ■■ ■■■ :- ■■■ ■ ■ ■:■ ■:■ • 

■■■ ■■■ ■: ■■■ :■ ■: \ :■ 




.-. .:■ .: :-. :-. -. : :. :.. . . . : ... ■. . : : ; . :■ . : . 

■■■ ■■: :■ ■:■ ■: .':■ ■■:■:■■■ : . :■ ■■■ ■ : x 

x :■ :-. .-. ■.. ■:■ x.x : . : .. .-. x ■ . .-. .-. : 

■■ :■ x ■■ 



' ■:■ ■■:■ . 

: -.-. x- . 

■.■ ■■:■ • 



■ x : -: : . ■:■-.■■■:■: ':■_.-■:■ \ ;■■■ j- : : : ■:■. .. : : : :• 

xx:;: : :'x"::x : . x ; : : x : . :: : x : >: . : :- x x : " -x !-x : : x xO::: x;. x x x:.-x- -:■: ■:■:■ 



•:■ ■>. •.• .•:• •:•. .-. ,-: : : 



x x x : . ■: • 



■: : : .... : . :.. : :- .. : : ■. . : :■.. . " : . : 
■ x- x : : x- : x .■ : : x- -.-. . : . x- x x : : 



mmmmmmmmmmmmmmmmmmmmmmmm 




mmmmmmmmmmmmm 



mmmmmmmmmm 



-.. ■:-. x ■<■:■ 
■ ■:.■!'■■:■■: 

-.;:■■ x;:- : x-.: 

x ■- !:: x:.x 



Name: 



,- ■ ■■: .-. ■ •. ■■:-. i :■ .-:■ : 

■ ■ ■■ ■ •:■ x ::■■::■. :. 

.■■.:■:,..■,:■ 
: . . . x- :: ,:.:: : , 

■ . ■■ ■. X.-...X.X::::: 

:■ ■:.- -: ->^ 

■: :: :-- : -x^V: 
■:■ x- *.".; ? : : :::.-, 

;■! :- ;- -::;.: ::;■:;:■;;: 

&{- V 

.■■■: ■■■ ■: . -.-.. :-x ■:-x.X;-*::: :■ 

-::-: <#&&*£ 
x.x.:. : x'-x ■■ xx- x;; 

::x.x/'--. x x/x-:!:::::': 

^x::- ■ ■■::.:■ x:.::::, ■:;■- 

:'xx ::■■: ■-. £&.. 

■ ■■-'■.:.:. xx.,; 

;-;_.;■ 

|^ij/;' ■. :■;":■ ■ 
';}y X-/X -x-x : *v:/' : :- ■:■■■ 

;■ ■- ■ ;■■ , -C ?: 

■x'x. jx'.x :: ^>?ft.. ; . . : . ... .... . : .. 

-;:x-.^:!x^::l:"x^xVx : x-x :. : .;,.:.-: : :. : - . : . : x : ;. : ..-. ■ -. 



Address: 



City: 
Zip/Postal: 



'■:■'<: :■ ■■: ■: 

■■'■ :■: x . : x ■:■ 

■■ :■: ■■:■■ X; |v :■: 

..■■:■: .:■ x ■.-.- : . 

:■. ■:■: ■;■ : x j ■ '■ 

■:■ x: x- ■:■;:■ ■•■ 

■:-.- '■:■: '••■• ■■'■;■ •'■' 

x x :: x :: 
- I:: 



Phone: 



Province/State. 
CompuServe ID. 



IMPORTANT NOTE: Prepayment is required on ALL orders 



i/x ■,.'■:::.:::::..■::■::..::::.:. 
::j : ::;V-x..x :::;.■::..-..: 



ranm^^^n^^R. . . 



mmmmmmm 



' "" v ::: :- : .:: ; : ::: - ; -' "'■ ::: f'"yM-- i' * : * "' \' : '£* y-^x'^ y- y- *■:* M x- :■■■ .:*: ; ' : ^ r ? y-yl .^ft **& y 

'vx :- V: -: v-x. x ■:■•■;■■ x -X; <* ■'■> :■.•'■:■: :■:■ ■:■:':■:■: -y '•:■; ■:■. ■:■: ■■■'■:■ ■:■:•■:■ •:■:■:-:■ -x :■:■.•:■:■ ■:■■ -x^x-x-:- -: : x : : :- x|: x- •:;:' •:■: :■:■ -x ':■■-:■:• 



.: x . ■:■ : . ■ :■ : . .■ x . x ■: x x :■ -.. .■ : .- .. ■.. x ... : : . ., .:■ x . : . .: .. x : : : . x .... .. x .. .. . : ■. :. : :- : . :■..■■: : x .. . : .. : .:■ . x- .: : ■: : :- ■■ .■ . : :- .. x . ■. ..■ .■ .. .x : x .x x : •. : x 

■:■ ■■■ .■ ■:■ ■■■ ■■ ■:■■ :■: :■ :■. x- ■: ■■. '■:■ ■. ■■'■: -y ■:■ ■: ■:■■ x x- x ■ ■: ■:■ x :■■ :■ x -x .■■ ■:■ .-. :■: ■? •.-. ■. ,-x .■■■ ■ ■■ ■:■ x ■:■: : . :■ ■.■:■ .-. ■:■. ■:■ .-. .■ ■■ ■:■ .■:■ ■:■ .-. .■:■ x- ■. ■■■. '■:■ -.- -. ; ■ ■ .■:■ - : x ■ ■. ■:■ ■■ :■:■■ ■:■ ■: x ■ x ■:■ :■: :■:■ ':■' x '■:■ ■:■■ :■:■■ -x £ 

• ' :: " •■'•■ •' J - ; .' :: ■•■ ■• :- "' :- • ■•■'• ■•■'•■ ■'•■ •■•■ ■•''•■ ■'■ y y • ■'■' y :- •■'• ■■•■' •■• ■•■ •■•■ - - - '•■• •■• ■•• ■•■• y •*• : ~ - : - •■• ■•■• :-: ,;: • ■•■• ■• -:: :-:- - : ~- ■•■• ~ :: - : ■■■ ;: - ' : '- " :- ■•■• • '•■ ■•■• • ■•■ •■■■ - -y •■'•■ ■•■ ~ ■•■•■ ■• ■•■ y ■•■ •••■ •■• ■•■ ■■ ■■ '•■ ■•■ ■•■ :■•■ ■• ■•■•■ ■-■ ■•■•■ •■•-■•■•■ •■•■ ■■■■ 



[t:::i'%:.mi 

■yy- x'-x yy+-y&$y- 

O;.';-: :.: : \x': : :X 



.-. ■. 



■:X:xxx:::!::x.:; : : : . : : . 

:x.'x ■;.•.-..;., . ,.- 

■:■ x: y*y-y? y y- \ x y>y y • .y 

::-X: x:x;.x :■: /£&V. x : <■ -x; x : x: .. x! x ■ ¥■ w xx- 

. . 



Subscribers only: please enter subscription number from mailing label 



V.'" :;': : ; v -" : . •'■:■■ '.■:; v ';- :' :; "V -1- ":'; : :'>' : .';- ; : ;; : ;'' : ;' ';'■ "■ :- ' :■■■.:■:■ x:.x:xx : x- x-x : :x ; -: : xx : -x ^w v-x- : : : •■■:• x : x . : y-y.y-y yy:y>yyy. ■■.-. y:-y:+- : 

............... ,.,., .,..,....,,.,,.., ,,.,,., .,.,.;. v,.v,: : :.:.:..^ : :.: : :. .:..:..,,,.:,.:.:..;.:,:. : : : ...... : x ;. . .. -:,.. ....... ■:• .x, : : : - : , x : . . : , : . : : . ::: . : . .:,: : . : : : . .... x : . : x..y : x : x : v.Kiv.*-; 

:■'■:■' ■ x-' "'x':': :- : - : ■:<:■■':• '■: x : ■■::'■ ■:■.:■:■ x :. x ,.■■■:■■ x-" xx- • .:x,:: ,.-:. ■ \ 



.■: :■ 

mmmwmiimwmmimm 



: :• .• : : : .-: . .-: ■■■ 



x- :■: ■■•. .■:■■ ■:■: 
■ -:■: :■: ■. .■:■ .■:■ 
> x- 



^fflff y 

mmmmmmmm 




1 ■:■ ■■■■ v ■■:• ■:■ v ■■■ :■ • • .■: ■'■ ■:■ ■■■■ ;; ■:■■ ■■■■ 



■ y{y:y.:^yyyy-yy. 
!■:::'-■■; ■■ . x /! xxi-xi; y- 



; X: / :^,.:, : ,■:,:::: :,■■:,:: 

>y <■ .yyyy.yyy 

; . : x v,;: : .., ..■,.,:; :,:.',,x 

rt'y^y/^yyyyy 



■ 



Su 





px.':';:x:-xV-."xxi: 
$y :■:..■■..:'.:: x.\ ; : : :.-! 
; : :xV : :V:x'-.x:X::';: 
:jx ■::::■::: ■,::£ 
;■':: -x y^ 

:{yy>;:yyyyy: 
j*:> ■■ :x -x/v: :::!:■• 






.-.: x x .-.■ ■. ■ .-. .■ .. 
■■■■.; ■ ■■ ■ x . . : : .. 



■:■ :■ j 

■■ :::■■ ■:■ : :■: ■:■ : ■: :.. .:■ 
■ ■■:■■: ■■■■■:■: ■:■ 






. •:• :• • ■ 



;;jx-: ::;■■.■ y'-y m.}y 
iyy-y-y 

■. : x:x.:x:x-x ^."x^x 
! : :x :xx,x: ^ V££ 
':•'-■:■ ■:■•■:':■■':■:■ -x--x-'x-: 
; :-;::::x::V x. ..- ?.& > 



fixy&fiy&yb 



1 year 

2 years 

3 years 



Canada ($Cdn,) 
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□ 35.00 □ 10100 □ 136.00 

□ 47.50 □ 137.50 □ 185.00 
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* Ontario residents please add 8% of disk subscription price for provincial sales tax. No PST on magazine subscriptions. 
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If you are subscribing to BOTH the magazine and the disk, check one of the following FREE gifts: 



TransBASIC 2 Disk and Manual 
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9.95 8.59 

_ 24,95 19.95 

tUS 17.95 



■■■■.■■.'■.■■.■■.■■■■ ■■".".■ w m ^ . . , w . . w . w . , w .._..._. . . , w m . . . m . . w . . . . . . m . . m . . m . . m . . m . 

Q Potpourri Disk □ Extended Subscription (extra issue) 



: ■:■:■ '■:-. - ■:-. --.- 



:- x-:xx-..x:x:-::x:xx. 



■— !-i.i LA. mmmmmmmm l iii ii i. — — — — 

■: ■::•: x : -x -:■-:;:•.■. X;--;. .. :V : :^: -: : 

mmmmmmmmmmmmmmmmmmmmmmmm 



mmmmmmmmmWmWm 

< .- ; :-x ■ x ■■:-.• '. : - .: ■ -.: 
■ x ■ ■■ ■:-. .-.- ■:■ ■: ■ ■ .-;: -.- -.-■ ■:■ 










Product __ 

OnteMlb residents please add 8% PST on all items 

Transactor Book of Bits and Pieces #1 D 59.95 49.95 Transactor Microfiche Set (Vols 4 through 8) : 
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Bits and Pieces Book Disk 

Bits and Pieces Book AND Disk Combo 

The TransBASIC 2 Disk 



19.95 17.95 Potpourri Disk 

19.95 J7S3 Juggler 128 CP/M Formatting Utility 
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The Transactor Disk, $8.95 US, $9.95 Cdn each (1541/4040/2031/MSD format) 

Numbers shown are Disk numbers; the Volume and Issue of the corresponding magazine are shown tn brackets 

5{V5 t #6) □ 6(VM1) D 7{V6,#2) Q e(VB,#3J; 
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28 (W, #5) 
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Add flat $2.00 shipping & handling for any number of items ordered from above box. 
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Back Issues, Microfiche: $4.50 U.S., $4.50 Cdn. (MF=Microfiche, filled box=SOLD OUT) 
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Ontario residents please add 8% provincial sales tax for any items ordered from this box. 
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